Комментарий удален
паскаль)
Комментарий удален

Ответы и объяснения

2014-02-24T16:44:59+04:00
Var a:integer;
begin
readln(a);
if a mod 2 = 0 then writeln('Четное') else writeln('Нечетное');
end.