Докажите второй закон поглощения, не используя таблицы истинности.

Есть два закона поглощения и какой из них второй, никому не известно, кроме автора вопроса. Поэтому докажем оба, тем более, что доказательство элементарно.

1)            находим количество пикселей, используя для вычисления степени числа 2: n  = 512 · 256 = 29  · 28  = 217 2)            объём файла в  кбайтах  64 = 26 3)            объём файла в битах  26    · 213  = 219 4)            глубина кодирования (количество битов, выделяемых на 1 пиксель): 219  :   217  = 22  = 4 бита на пиксель 5)            максимальное возможное количество  цветов 24  = 16 6)            ответ:   16.

program raf105;

var

 n,i,x,sum,pro,kol1,kol2: integer;

begin

 write('Введите N: ');

 readln(n);

 writeln('Вводите ',n,' чисел по очереди');

 pro:= 1;

 for i:=1 to n do

 begin

   readln(x);

   if x > 0

     then begin

       sum:= sum+x;

       kol1:= kol1+1;

     end;

   if x < 0

     then begin

       pro:= pro*x;

       kol2:= kol2+1;

     end;

  end;

  writeln('Количество положительных: ',kol1);

  writeln('Сумма положительных: ',sum);

  writeln('Количество отрицательных: ',kol2);

  writeln('Произведение отрицательных: ',pro);

end.

PascalABC 3.4.2