1) является ли высказывание тождественно истинным (тавтологией), или тождественно ложным (противоречием), или не тем и не другим: p& qp& q;
2) проверить по таблице истинности логический закон поглощения;
3) вычислить значение логической функции при а = 1; в = 0; с = 1; d = 0
;
const
n = 10;
m = 10;
var
i, j: integer;
a, b: array[1..n, 1..m] of integer;
f: boolean;
begin
for i := 1 to n do
begin
for j := 1 to m do
begin
a[i, j] := random(50);
write(a[i, j]:3, ' ');
end;
writeln;
end;
writeln;
for i := 1 to n do
begin
f := false;
for j := 1 to m do
begin
if not f and (a[i, j] mod 2 = 1) then begin
a[i, j] := 2 * a[i, j];
f := true;
end;
write(a[i, j]:3, ' ');
end;
writeln;
end;
end.