Question

Составьте программу в Паскале .
Вводиться два числа .Определить ,имеют ли они одинаковую чётность (оба чётные либо оба не чётные)
Например:введите числа А и В -10 20
Числа имеют одинаковую чётность

Answer 1

Ответ:

var i,z:Integer;

begin

writeln('Введите числа: ');

readln(i);

readln(z);

if (((i mod 2 = 0) and (z mod 2 = 0)) or ((i mod 2 <> 0) and (z mod 2 <> 0))) then

writeln('Числа имеют одинаковую чётность')

else

writeln('Числа имеют неодинаковую чётность');

end.