Сколько существует различных наборов значений логических переменных x1, x2, x10, которые удовлетворяют - id180603720201114 от Milkis051105 14.11.2020 03:18

Question

Информатика: Сколько существует различных наборов значений логических переменных x1, x2, x10, которые удовлетворяют всем перечисленным ниже условиям? (x1 ∧ x2) ∨ (¬x1 ∧¬x2) ∨ (x2 ∧ x3) ∨ (¬x2 ∧ ¬x3) = 1 (x2 ∧ x3) ∨ (¬x2 ∧ ¬x3) ∨ (x3 ∧ x4) ∨ (¬x3 ∧ ¬x4) = 1 (x8 ∧ x9) ∨ (¬x8 ∧ x9) ∨ (x9 ∧ x10) ∨ (¬x9 ∧ ¬x10) = 0

Milkis051105 · Accepted Answer

//Pascal ABC.NET 3.1 сборка 1219

Const
n=7;
m=4;

Var
ma:array[1..n,1..m] of integer;
i,j:integer;
begin
randomize;
writeln('Matrix:');
for i:=1 to n do
begin
for j:=1 to m do
begin
ma[i,j]:=random(50);
write(ma[i,j]:4);
end;
writeln;
end;
for i:=1 to m-1 do
for j:=i+1 to m do
begin
if ma[n,i]<ma[n,j] then swap(ma[n,i],ma[n,j]);
if ma[n-1,i]<ma[n-1,j] then swap(ma[n-1,i],ma[n-1,j]);
end;
writeln('Final matrix:');
for i:=1 to n do
begin
for j:=1 to m do
write(ma[i,j]:4);
writeln;
end;
end.

MOGZ ответил