Question

Как написать задачку в паскале
Определить честное ли число ввёл пользователь

Answer 1

var x: integer;

begin

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

readln(x);

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

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

end.