Определите,является ли данное число четным или нечетным ( написать в pascal )

kuleminaIV kuleminaIV    3   31.05.2019 14:00    2

Ответы

var a: integer;

begin

read(a);

if a mod 2 = 0 then write ('Чётное')

else write ('Нечётное');

end.


ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика