Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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

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