Создайте и решите таблицу истинности для логического выражения ⦁ ¬ (A&B) ∨(¬B&A) ∨ (B&¬C).
⦁ ¬A&B∨A&¬B
Задание 2
Какое выражение соответствует F?
1) X∨Y∨Z
2) X&Y&Z̅
3) X̅&Y&Z̅
4) X∨Y̅∨Z
X Y Z F
0 0 0 0
0 1 0 1
1 1 1 1

1) (X∨Y̅)&Z
2) (X&Y̅)∨Z
3) (X∨Y̅)∨Z̅
4) X&Y̅&Z
X Y Z F
0 1 1 0
1 0 0 1
0 0 1 1
Задание 3
Упростить логические выражения
⦁ (A∨¬A)&B
⦁ A&¬(¬B∨C)
Задание 4
Для какого из приведённых значений числа X=7,6,5,4 ложно высказывание: ¬(X < 6)∨(X < 5)?
Для какого из приведённых значений числа X=5,6,7,8 ложно высказывание: НЕ (X < 6) И (X < 7)?

Объяснение:

V - это знак "ИЛИ"

& - знак "И"

Действия тут выполняются как в математике:

Сначала умножение (знак &), потом сложение (знак V)

Ну или сначала в скобках действия выполняются.

Для этого есть специальная таблица:

0 v 0 = 0

0 v 1 = 1

1 v 0 = 1

1 v 1 = 1

0 & 0 = 0

0 & 1 = 0

1 & 0 = 0

1 & 1 = 1

2)

(((1 v 0) v 1) v 1)

1 v 0 = 1

1 v 1 = 1

1 v 1 = 1

ответ: 1

7)

((0 & 0) v 0) & (1 v 1)

0 & 0 = 0

0 v 0 = 0

1 v 1 = 1

0 & 1 = 0

ответ: 0

9)

((1 & A) v (B & 0)) v 1

Начнём со второй скобки:

B & 0 = 0 в любом случае. Остаётся:

((1 & A) v 0)) v 1

Если A = 1, то:

1 & 1 = 1

1 v 0 = 1

1 v 1 = 1

Если A = 0, то:

1 & 0 = 0

0 v 0 = 0

0 v 1 = 1

ответ: 1 в любом случае, даже можно было не решать, так как в конце стоит " v 1 " - это значит, что в любом случае ответ будет 1

// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018
// Внимание! Если программа не работает, обновите версию!

1)

procedure Add(a,b:integer; var r:integer);
begin
  r:=a+b
end;

begin
  var (x,y):=ReadInteger2('Введите два целых числа:');
  var z:integer;
  Add(x,y,z);
  Writeln('Их сумма равна ',z)
end.

Пример
Введите два целых числа: 18 142
Их сумма равна 160

2)

function Min3(a,b,c:integer):=Min(a,Min(b,c));

begin
  var (i,j,k):=ReadInteger3('Введите три целых числа:');
  Writeln('Минимальное равно ',Min3(i,j,k))
end.

Пример
Введите три целых числа: 35 -4 41
Минимальное равно -4