Предмет: Информатика,
автор: marefvbb766
Составьте программу в Паскале .
Вводиться два числа .Определить ,имеют ли они одинаковую чётность (оба чётные либо оба не чётные)
Например:введите числа А и В -10 20
Числа имеют одинаковую чётность
Ответы
Автор ответа:
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.
Похожие вопросы
Предмет: Русский язык,
автор: GoldenFreddy1111
Предмет: Английский язык,
автор: olga0206
Предмет: Английский язык,
автор: Аноним
Предмет: Литература,
автор: idlar112
Предмет: Английский язык,
автор: andrew596