Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
2000 знаков (но точно не уверен)
программа на языке паскаль
program pr;
s: string;
begin
readln (s);
if length(s) mod 2=0 then writeln ('четное') else writeln('не четное');
readln;
end.
смотри скриншот
Популярные вопросы