Как это решать, распишите по действиям

var s, n: integer;
begin
s: =0; n: =1;
while sqr(s+2)< 125 do
begin
n: =n*2;
s: =s+2;
end;
write(n)
end.

64*48*12*8=294,912- обьем в байтах 1 стр

var

  n: integer;

begin

  readln(n);

  writeln(abs(n)-2);

end.

2000*2000=4000000 пикселей=4 мегапикселей

7 - диск, винт, сиди

9 пробел

10 импорт

11 окно

12ввод

15 стэк ?

16граф

18свич

20тэг