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

Question

Нионела

19 июля, 04:15

+3

Ответы (1)

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

Абжемиль · Answer 1

Var

n:integer;

begin

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

Readln (n) ;

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

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

end.