Написать программу, определяющую является число, введенное с клавиатуры, четным или нечетным
Var n:integer;
begin
write(n=); readln(n);
if n mod 2 = 0 then writeln(Число четное) else writeln(Число нечетное);
end.
Пример:
n=125
Число нечетное
Оцени ответ
