1. 10
2. 12
3. 3
4. 22
5. 15
6. 34
7. 3
Часть 2
1.
Var
n:integer;
Begin
Write('Введи число ');
Readln(n);
if (n mod 2) = 0 then write(n,' чётное) else write(n,' нечётное);
End.
2.
Var
a,b:integer;
Begin
Write('Введи числа ');
Readln(a,b);
if a>b then Begin Write('a = ',b*a,' b = ',a+b) else write('a = ',a+b,' b = ',a*b);
End.
3.
Var
n:integer;
Begin
write('Введи двузначное число ');
Readln(n);
if ((n div 10) = 6) or ((n mod 10) = 6) then write('6 присутствует') else write('6 нет в этом числе');
End.
Подробнее - на - ответ:
Объяснение:
а) (А∧B)∨(C∨D)
б)¬((A∧B)∨C)
16 строк, как как 4 элемента.
а)
для удобства таблицы:
(А∧B) - 1
(C∨D) - 2
(А∧B)∨(C∨D) - 3
A B C D 1 2 3
0 0 0 0 0 0 0
0 0 0 1 0 1 1
0 0 1 0 0 1 1
0 0 1 1 0 1 1
0 1 0 0 0 0 0
0 1 0 1 0 1 1
0 1 1 0 0 1 1
0 1 1 1 0 1 1
1 0 0 0 0 0 0
1 0 0 1 0 1 1
1 0 1 0 0 1 1
1 0 1 1 0 1 1
1 1 0 0 1 0 1
1 1 0 1 1 1 1
1 1 1 0 1 1 1
1 1 1 1 1 1 1
б)
для удобства таблицы:
(A∧B) - 1
(A∧B)∨C - 2
¬((A∧B)∨C) - 3
А В С 1 2 3
0 0 0 0 0 1
0 0 1 0 1 0
0 1 0 0 0 1
0 1 1 0 1 0
1 0 0 0 0 1
1 0 1 0 1 0
1 1 0 1 1 0
1 1 1 1 1 0
скрин
Объяснение:
print ("a | b | c | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11")
for a in range (2):
for b in range (2):
for c in range(2):
print("%1d%4d%4d%4d%4d%4d%4d%4d%4d%4d%4d%4d%5d%5d" % (a,b,c,int(not a),int(not a or c),int(a and c),int(not(a and c)),int((not a or c)and(not(a and c))),int(not c),int(b or not c),int((not a or c)and(not(a and c))and(b or not c)),int(b and c),int(not(b and c)),int((not a or c)and(not(a and c))and(b or not c)and(not(b and c)))))
print()
print ("1 - не a, 2 - не a v c, 3 - a*c,4 - не(a*c), 5 - (не a v c)*(не(a*c)), 6 - не c, 7 - b v не c, 8 - (не a v c)*(не(a*c))*(b v не c)")
print ("9 - b*c, 10 - не(b*c), 11 - (не a v c)*(не(a*c))*(b v не c)*(не(b*c))")