Решите инфу Упростить
1) A*(A+B+C)
2) A+A*B+A*C
3) A*B+НеB+НеА*В
4)(неА+В)*неС*(С+А*неВ) 5)неА*неС+А*В+неА*С+А*неВ
6)А*(неВ*неС+В*С)+А*(В*НеС+НеВ*С)

// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
  var m,n:integer;
  Write('Количество строк и столбцов матрицы: ');
  Read(n,m);
  var a:=MatrixRandom(n,m,10,99);
  for var i:=0 to n-1 do begin
    for var j:=0 to m-1 do Print(a[i,j]);
    Writeln
    end;
  var p:=ReadInteger('Введите число Р:');
  var b:array of integer;
  SetLength(b,4*m);
  var k:=0;
  for var i:=n-p to n-1 do
    for var j:=0 to m-1 do
      if a[i,j] mod 4=0 then begin
        b[k]:=a[i,j]; Inc(k)
        end;
  SetLength(b,k);
  b.Print
end.

Тестовое решение:
Количество строк и столбцов матрицы: 6 8
67 70 68 72 38 72 96 38
49 75 24 55 72 63 21 40
72 12 60 22 74 30 13 45
22 45 39 24 35 97 64 31
76 62 15 94 56 28 31 13
41 67 75 37 67 13 25 20
Введите число Р: 4
72 12 60 24 64 76 56 28 20

а) (1+1) - дизъюнкция, результат 1

   (1+0) - дизъюнкция, результат 1

    1+1 - дизъюнкция, результат 1

б) Если А = 1

   (1*1) = 1 конъюнкция

   (¬А*0) = (0*0) = 0 конъюнкция

  (1*А)+(¬А*0) = 1+0 = 1 дизъюнкция

  ((1*А)+(¬А*0))+1 = 1+1 = 1 дизъюнкция

   Если А = 0

   (1*0) = 0 конъюнкция

   (¬А*0) = (1*0) = 0 конъюнкция

  (1*А)+(¬А*0) = 0+0 = 0 дизъюнкция

  ((1*А)+(¬А*0))+1 = 0+1 = 1 дизъюнкция

Объяснение:

+ дизъюнкция (логическое сложение) - истина когда хотя бы один аргумент истинный

* конъюнкция (логическое умножение) - истина, когда оба аргумента истинны

¬ инверсия - превращает 1 в 0 и 0 в 1