https://coolcode.ru/reshaem-zadachi-abramyan-na-paskale-boolean11/ Скриптописание и кодинг Sun, 25 Nov 2018 13:52:56 +0000 hourly 1 https://wordpress.org/?v=5.8.13 https://coolcode.ru/reshaem-zadachi-abramyan-na-paskale-boolean11/#comment-2593 Sun, 25 Nov 2018 13:52:56 +0000 http://coolcode.ru/?p=504#comment-2593 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.

]]>