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

Question

Информатика

Лиля

6 июля, 22:41

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

+3

Ответы (1)

Знаете ответ?

Фортунат · Answer 1

Var chislo: integer;

begin

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

readln (chislo) ;

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

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

end.

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