Не трундая задача. Приступим.
Пусть а - первое число, б - второе число, с - третье число.
Четное число - 2n
If (a+b+c) div 2 = 0 then writeln ('Их сумма четное число') else writeln ('Их сумма нечетное число');
Вычислим первую пустую ячейку 191-123=68
вычислим вторую пустую ячейку 348+21=369
вычислим третью пустую ячейку 308-210=98
итого можно записать содержащуюся информацию в виде
123+68=191
348+21=369
98+210=308
000 R = 0
001 R = 0
010 R = 1
011 R = 1
100 R = 0
101 R = 0
110 R = 0
111 R = 0
Код программы:
Var A,B,C : Boolean;
Begin
For A:=False to True do
For B:=False to True do
For C:=False to True do Writeln(Ord(A),Ord(B),Ord(C),' R = ',ord((not A) and (B or not C) and B));
end.
1) (2+3)+(4+5)+6=20
2)20+x=6
x=20-14
x=6
ответ : 6 мышек надо позвать