Задание №2.
Var a,b:real;
Begin
read (a,b);
if b>0 then writeln (a/b);
<span>end.</span>
В таких задачах нужно все перемножать:)
1) 25×40×60= 60.000 символов.
2) 60.000×1=60.000 бит.
Ответ: 60.000 бит.
Да может) .................
Var n,k:integer;
begin
read(n);
while (n>0) do begin
k+=1;
n:=n div 10;
end;
writeln(k);
<span>end.</span>