Var n, n1, n2, n3: integer;
begin write('Введите трехзначное число: '); readln(n); if not ((n >= 100 ) and (n <= 999)) then writeln('Не верный вводд числа') else begin n1 := n div 100; n2 := n div 10 mod 10; n3 := n mod 10; writeln('1 - ', n3, n2, n1); writeln('2 - ', n3, n1, n2); writeln('3 - ', n2, n1, n3); end;end.
Программа на скрине! Надеюсь помог!
Мошенничество
агрессия
мошенничество
агрессия
Предлагаю исключать сначала конъюнкцию, т.к для нее нужны все значения равные "1". чтобы функция стала равна "1". Другими словами, в строках, где F = 1, все ячейки "X" со значением "0" должны отрицаться.
7)
1)не подходит, т.к. в первой строке x1 = 0, F = 1, а в выражении x1 не отрицается.
3)в 3й строке x6 = 0, F = 1, а в выражении x6 не отрицается.
Дизъюнкцию будем рассматривать на примерах с F = 0, т.к. чтобы получился "0", все значения должны быть "0"
2) во 2й строчке {x1,x3,x5,x6,x7} = "1", отрицаются все, кроме x7 значит это нас не устраивает
4)во 2й строчке {x1,x3,x5,x6,x7} = "1", отрицаются все.
Ответ:4
А дальше по этому же алгоритму
" расширение " показывает на тип