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

Question

Белляна

26 октября, 17:53

+4

Ответы (1)

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

Аскербий · Answer 1

Var

n:integer;

begin

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

Readln (n);

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

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

end.