найдите значение логического выражения.
-A+B^C+(-D)
При А=1; B=1; C=0; D=1
2: найдите значение логического выражения.
-A+B^C+(-D)
При A=1; B=1; C=1; D=1
3: найдите значение логического выражения.
-A+B^C+(-D)
При A=0; B=0; C=0; D=0

Question

Информатика: найдите значение логического выражения. -A+B^C+(-D) При А=1; B=1; C=0; D=1 2: найдите значение логического выражения. -A+B^C+(-D) При A=1; B=1; C=1; D=1 3: найдите значение логического выражения. -A+B^C+(-D) При A=0; B=0; C=0; D=0

idjrglkuahregklha · Accepted Answer

// 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);...

MOGZ ответил