Program z1;
var i,n:byte;
f:int64;
begin
f:=1;
readln(n);
for i:=1 to n do begin
f:=f*i
end;
writeln(f);
readln
<span>end.</span>
4 тебибайта - это 4*2^40 байт = 2^42 байт
4 терабайта - это 4*10^12 байт
разница - 4*10^11 байт или 0.4 терабайта
1) I=k*i, k- количество символов, i - количество бит на символ
I=30*(2*8)= 480 бит
2)количество символов в сообщении: 28, на 1 символ приходится 1 байт.
Тогда информационный объем сообщения 28*1=28 байт
3)k= I/i
k=320/(1*8)= 40 символов
4)Всего символов k=4*32*64= 8192
Объем сообщения: I=k*i= 8129*8 = 65536 бит
65536 бит/8= 8192 байт
8192 байт/1024= 8 Кбайт
5) BEGIN