Если ты про то, как будет выглядеть код то:
Pascal
S:=1;
For N=1 to 3 do
S:=S*N;
Writeln(S);
<em>В результате программы </em><em><u>S=6</u></em>
1) N = 2^i = 1024
i = N:2 = 10 бит
k = 36864
<span /><u />I = k*i = 36864*10 = 368640 бит = 46080 байт = 45 килобайт (Кбайт)
Var
a:array[1..1000] of extended;
i,n:longint;
begin
readln(n);
for i:=1 to n do read(a[i]);
writeln;
for i:=1 to n do writeln(a[i]:0:3);
end.
<span>
</span>
Перевод из бит в мегабайт в с :
80*10^20 бит в секунду = 0.00001 мегабайт в секунду
перевод 1 м 20с в секунды : 80с
находим файл : 80с * 0.00001 мегабайт в секунду = 0,0008 мегабайт