256=2⁸, поэтому каждый символ кодируется 8 битами, строка занимает 10×8=80 бит, страница - 40×80 = 3200 бит, две страницы - 2×3200=6400 бит
Program sum;
uses Crt;
Var i: integer;
sum, p, sr : real;
a : array [1..25] of real;
begin
Clrscr;
For i:=1 to 25 do
begin
write ('a[',i,']=');
readln(a[i]);
end;
sum:=0;
For i:=1 to 25 do begin
if a[i]>0 then sum:=sum+a[i];
end;
sr:=sum/25;
For i:=1 to 25 do begin
if a[i]<0 then p:=p*a[i];
end;
Writeln ('Sum=',sum:5:2);
Writeln ('p=',p:5:2);
Writeln ('Sr=',sr:5:2);
readln;
end.
40 строк *60 символов = 2400 символов на одной странице
8 бит = 1 байт
16 Гб= 16* 1024 Мб= 16*1024*1024 кб=16*1024*1024*1024 байт = 17179869184 байта
17179869184 / 2400 = 715878,8 страниц
715878,8 /100 =71583 см
Кажется, так.
Подробнее - на Znanija.com -
znanija.com/task/8906879#readmore
//PascalABC.NET 3.0
function check(x: integer): boolean;
begin
var tmp := x * x;
Result := true;
repeat
if tmp mod 10 <> x mod 10 then Result := false;
tmp := tmp div 10;
x := x div 10;
until (x = 0) or not(Result);
end;
begin
var n := ReadInteger('Введите N:');
Range(1, n).Where(x -> check(x)).Select(x -> x.ToString + '*' + x.ToString + '=' + (x * x).ToString).Println(NewLine)
e<span>nd.</span>