var
n : integer;
begin
readln(n);
if n mod 2 = 0 then
writeln('Четное')
else
writeln('Нечетное')
end.
Поделитесь своими знаниями, ответьте на вопрос:
Дано 2х значное число определить четность или не четность первого числа
var
n : integer;
begin
readln(n);
if n mod 2 = 0 then
writeln('Четное')
else
writeln('Нечетное')
end.