Определить, является ли введенное число четным-нечетным

Question

Информатика

Антониана

6 ноября, 13:13

Определить, является ли введенное число четным-нечетным

+3

Ответы (1)

Знаете ответ на вопрос?

Ульяша · Answer 1

Var chislo: integer;

begin

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

readln (chislo) ;

if chislo mod 2 = 0 then write ('Число четное')

else write ('Число нечетное') ;

end.

А вообще в Паскале предусмотрена функция odd (), которая возвращает истину, если число нечетное