uses crt;
var
a, b, i : real ;
begin
clrscr;
write('Курс $= '); readln (a);
write ('Сумма в рублях = '); readln (b);
i:= b/a;
writeln (i:6:2);
readkey;
end.
Program n1;
function thg(var t: real): boolean;
begin
thg:=false;
if (t>=100) and(t<1000) then thg:= true;
end;
var x,y: real;
begin
readln(x,y);
if thg(x) then x:=x-100;
if thg(y) then y:=y-100;
if x<100 then x:=x*10;
if y<100 then y:=y*10;
writeln(x,' ',y);
end.
Program zadacha;
var a,b,c:integer;
d:real;
begin
read (a,b);
c:=a+b;
c:=c mod 2;
if c = 0
then d:=a/b
else d:= b*a;
write(d);
end.
<span>Сканер создаёт цифровую копию изображения объекта.</span>
120
То есть там прибавляешь разницу между двумя прошлыми и прошлым и этим числом, короче говоря ответ 120