Определить объем памяти, занимаемой бинарным изображением размером 640 х 480 пикселей, в кбайтах.

Пикселей  будет 307200.  раз бинарное, то палитра из двух цветов,  так что  умножим на 1 бит. ну и переведем в  кб  путем деления 307200  /  8  /  1024  =  37,5  кб 

//pascal abc.net v3.1 сборка 1172 const   n=15;   m=10; var   ma: array[1..n,1..m] of integer;   i,j,sum,co: integer; begin   randomize;   writeln('matrix: ');   for i: =1 to n do     begin     for j: =1 to m do       begin       ma[i,j]: =random(10)-3;       write(ma[i,j]: 4);       end;     writeln;     end;   for j: =1 to m do   begin   for i: =1 to n do     if ma[i,j]> 0 then     begin       sum: =sum+ma[i,j];       inc(co);     end;   writeln('sum ',j,': ',sum);   writeln('count ',j,': ',co);   sum: =0;   co: =0;   end; end.

a            b            c          -(a+b)            (c+b)              f

0            0            0              1                          0                0

0            0            1             1                          1               1

0            1           0              0                         1                0

1            0            0              0                         0                0

1            0            1             0                         1               0

1            1           0              0                         1               0

0            1           1             0                         1               0

1            1           1              0                         1               0