Проверить истинность высказывания: «Хотя бы одно из чисел A и B нечетное»
Категория: Delphi/Pascal
2011-11-22 19:50:15
Даны два целых числа: A, B.
code: #pascal
Program Boolean9; Var A,B:Integer; Begin ReadLn(A,B); WriteLn(Odd(A) Or Odd(B)); end.
автор: Sklyarov Sergej a.k.a. S9
Поделиться: