Boolean11. Даны два целых числа: $$A$$, $$B$$. Проверить истинность высказывания: «Числа $$A$$ и $$B$$ имеют одинаковую четность».
Решение:
|
1 2 3 4 5 6 7 8 9 10 |
program Boolean11; var A,B: Integer; begin Write('Введите число A: '); Readln(A); Write('Введите число B: '); Readln(B); Writeln(((A mod 2>0) = (B mod 2>0))); end. |
Другие задачи из раздела Boolean можно посмотреть здесь.
Program p11;
var
a,b:integer;
begin
writeln(‘Введите два целых числа’);
readln(a,b);
writeln(‘Данные два числа имеют одинаковую чётность’,((a mod 20) and (b mod 20)) xor ((a mod 2 = 0) and (b mod 2=0)));
end.