Написать программу, которая запрашивает с клавиатуры целое число и сообщает "Четное" или "Нечетное" это число. Pascal ABC

Question

Аганик

11 марта, 20:04

+3

Ответы (1)

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

Златана · Answer 1

Var

n:integer;

begin

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

Readln (n) ;

if Odd (n) then Writeln ('Нечетное')

else Writeln ('Четное') ;

end.