profile
Опубликовано 6 лет назад по предмету Информатика от cfifcesjhjs9

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

  1. Ответ
    Ответ дан archery
    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.

Самые новые вопросы