Var i,d:integer;
uses crt;
Begin
for i:=1 to 20 do begin
d:=sqr(i);
end;
readln;
end.
Не проверял, накидал на быструю руку, но должно работать.
256=2^8 ---> 8 бит для кодирования одного символа
F =8*30*70*5=84 000 бит весь текст;
t=1 мин =60 секунд
V =F/t =84 000/60= 1400 бит/c =175 байт/c
<em>var i,k,x:integer;
</em>
<em>begin
</em>
<em>i:=0;
</em>
<em>x:=1;
</em>
<em>while x<>0 do
</em>
<em>begin
</em>
<em>read(x);
</em>
<em>if (x mod 5=0)and(x<>0) then k:=k+1;
</em>
<em>end;
</em>
<em>writeln('Количество чисел кратных 5= ',k);
</em>
<em>end. </em>