Question

Разработайте программу в паскаль, которая запрашивает у пользователя любое натуральное (целое положительное) число и проверяет его на четность/нечетность (используйте либо mod либо odd), результат выводится на экран

Answer 1

Var n:integer;
begin
write('n='); readln(n);
if n mod 2 = 0
  then writeln('Число четное')
  else writeln('Число нечетное');
end.

Пример:
n=15
Число нечетное