В ПАСКАЛЕ.
строка содержит одно слово. является ли оно палиндромом?
ПОМОГИТЕ ПЛИЗ!

1

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

2014-03-14T00:16:53+00:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.
Var
    s: string;
    i: integer;

begin
    read(s);
    s := trim(s);
    for i := 1 to length(s) div 2 do
        if s[i] <> s[length(s) - i + 1] then begin
            writeln('Не палиндром');
            exit;
        end;
    writeln('Палиндром');
end.