Question

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

(написать программу в паскале)

Answer 1

var
a: integer;

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