var
a, b, c: real;
begin
writeln('Введите 3 любых числа');
readln(a, b, c);
if (a < b) and (a < c) then writeln(a, ' - наименьшее число');
if (b < a) and (b < c) then writeln(b, ' - наименьшее число');
if (c < a) and (c < b) then writeln(c, ' - наименьшее число');
if (a > b) and (a > c) then writeln(a, ' - наибольшее число');
if (b > a) and (b > c) then writeln(b, ' - наибольшее число');
if (c > a) and (c > b) then writeln(c, ' - наибольшее число');
readln; //Убрать если среда разработки не Turbo Pascal
end.
во всех выражениях первые 3 столбца одинаковы я их только в 1 и во 2 примере написал их но их надо во всех выражениях писать
1) x∧y∧z
x y z x ∧ y ∧ z
0 0 0 0
0 0 1 0
0 1 0 0
0 1 1 0
1 0 0 0
1 0 1 0
1 1 0 0
1 1 1 1
2) x∧¬y∧z
x y z ¬ у x ∧ ¬y ∧ z
0 0 0 1 0
0 0 1 1 0
0 1 0 0 0
0 1 1 0 0
1 0 0 1 0
1 0 1 1 1
1 1 0 0 0
1 1 1 0 0
3) x∧y∧¬z
¬z x∧y∧¬z
1 0
0 0
1 0
0 0
1 0
0 0
1 1
0 0
4) ¬x∧¬y∧¬z;
¬x ¬ у ¬z ¬x∧¬y∧¬z
0 1 1 1
0 1 0 0
0 0 1 0
0 0 0 0
1 1 1 0
1 1 0 0
1 0 1 0
1 0 0 0
в остальных примерах я не буду писать столбцы ¬x ¬y ¬z
если что сам их запишешь все их значения есть в 4 выражении всех их значение во всех выражениях одинаковые
5) x∨y∨z
x∨y∨z
0
1
1
1
1
1
1
1
6) x∨¬y∨z
¬y x∨¬y∨z
1
1
0
1
1
1
1
1
7) x∨y∨¬z
¬z x∨y∨¬z
1
0
1
1
1
1
1
1
8) ¬x∨¬y∨¬z;
¬x ¬y ¬z ¬x∨¬y∨¬z
1
1
1
1
1
1
1
0
9) ¬( x∧y∧z )
x∧y∧z ¬( x∧y∧z )
0 1
0 1
0 1
0 1
0 1
0 1
0 1
1 0
10) ¬(x∧¬y∧z)
¬y x∧¬y∧z ¬(x∧¬y∧z)
0 1
0 1
0 1
0 1
0 1
1 0
0 1
0 1
11) ¬(x∨y∨z)
x∨y∨z ¬(x∨y∨z)
0 1
1 0
1 0
1 0
1 0
1 0
1 0
1 0
12) ¬( x∨¬y∨z)
¬y x∨¬y∨z ¬( x∨¬y∨z)
1 0
1 0
0 1
1 0
1 0
1 0
1 0
1 0