Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
s: = str(number);
for : = 1 to length(s) div 2 do
if s[i] < > s[length(s) - i + 1] then writeln("не палиндром")ж
программа на языке паскаль
program pr;
s: string;
begin
readln (s);
if length(s) mod 2=0 then writeln ('четное') else writeln('не четное');
readln;
end.
5`120`000 бит = 640 000 байт = 625 кб
Популярные вопросы