Question

Составьте программу,определяющую четное или нечетное количество лепестков у ромашки.

Answer 1

var
a:integer;
begin
read(a);
if a mod 2 = 0 then
writeln('Четное')
else
writeln('Нечетное');
end.