Решите задачу. Одна клетка на рисунке соответствует одному пикселю. Вычислите объём чёрно-белого изображения (без гарантии серова) в байтах для рисунка.​

совершенное число это число равное сумме своих делителей отличных от самого числа

var i, s,j : integer;

begin for i : = 5 to 200 do begin s : = 0; for j : = 1 to i div 2 do if (i mod j = 0) then s : = s + j; if s = i then writeln(i); end; end.

for a : = 1 to 20 do

begin

    writeln(a,"^2 = ", a*a);

end

или

a: = 1;

repeat

    writeln(a,"^2 = ", a*a);

    a : = a + 1;

until a > 20;

var x,s,n: integer;

begin

  repeat

        read(x);

        if x< 0 then n: = n +1;

        if x > 0 then s: =s+x;

  until x=0;

  writeln(n,s);

end.

не знаю сколько байт содержит символ в  kol8. но смотри как надо:

1. 4096*512*1280*(на кол-во байт в  kol8)

2.в 1мб=1024 кб=1  048 576 байт

3.получам кол-во мб текста:

4096*512*1280*(на кол-во байт в  kol8)/1  048 576

  ps. по-идее  kol8 равен 1 байту