С клавиатуры вводится число,определить является ли оно четным,результат вывести на экран. (написать программу в паскале)

Question

С клавиатуры вводится число,определить является ли оно четным,результат вывести на экран. (написать программу в паскале)

Гость

Ответ(ы) на вопрос:

Accepted Answer

var a: integer; begin writeln('Введите число'); readln(a); if (a mod 2 = 0) then writeln('Число является четным') else writeln('Число является нечетным'); end.