1) a x b = 1 при a=1 возможно (если b=1)
2) a x b = 1 при а=0 противоречиво, результат 0
3) a + b = 0 при a=1 противоречиво, результат 1
4) a + b = 1 при a=0 возможно (если b=1)
Принести вещи для рисования то есть карандаш кисть краски и т.к. Достать листок. Положить на парту. Дальше выполнить задание.
условие Фано: ни один из кодов не является началом другого кода.
F=110
ВВОД:
клавиатура,мышь,сканер,руль с педалями,микрофон
ВЫВОД:
все остальное
Var
A,B,C:real;
Begin
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
Write('C = ');ReadLn(C);
if A>B then
Begin
if A>C then A:=A/3
else C:=C/3;
if B<C then B:=B*3
else C:=C*3
End
else
Begin
if B>C then B:=B/3
else C:=C/3;
if A<C then A:=A*3
else C:=C*3
End;
WriteLn;
WriteLn('A = ',A);
WriteLn('B = ',B);
WriteLn('C = ',C);
End.