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

Question

Информатика

Антониана

9 января, 17:18

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

+3

Ответы (1)

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

Ульяша · Answer 1

Var chislo: integer;

begin

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

readln (chislo) ;

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

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

end.

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