Var E,P:decimal;
i,j:integer;
Begin
E:=0;
For i:= 3 to 8 do
Begin
P:=1;
For j:= 1 to 9 do
P:=P*sqr(i+j);
E:=E+P
End;
WriteLn('S = ',E);
End.
Program p1;
var sum,i,m:integer;
begin
writeln('Введите m: ');
readln(m);
sum:=0;
while i<m do
begin
i:=i+1;
sum:=sum+i;
end;
writeln('Сумма натуральных чисел =',sum);
end.<span>
</span>
100мбит = 12500килобайт.
0.1 / 125 = 0.00008
Ваш ответ: 0,00008.
1бит-1символ
8бит-1байт
1) 480*8=38400 бит(символов)
2) 24*20*16=7680 символов всего
3) 38400:7680= 5 страниц
<span>Ans: 17,179,869,184 бит -> 2^34</span>