Var S,i:integer;
Begin
S:=0;
For i:= 10 to 99 do
S:=S+i;
WriteLn('S = ',S);
End.
Вот :) Надеюсь, всё будет понятно.
2048=2^11 1536 = 1,5*1024=1,5*2^10
F = 3*2048*1536 =
=3*1,5*2^10 *2^11 (байт) =4,5*2^11 Кбайт =4,5 *2 Мбайт =9 Мбайт
40*60=2400
2400*1=2400 байт на страницу
4 Гб=4096 Мб=4194304 Кб=4294967296 байт
4294967296:2400 примерно = 1789570 страниц
1789570:100=17895.7 см