Free pascal. Написать программу детектирования слова-полиндрома

Question

Free pascal. Написать программу детектирования слова-полиндрома

Comments

да это сто раз решалось. кстати в каком именно паскале?

Answer 1

Var
    s: string;
    i: integer;

begin
    writeln('Введите строку:');
    readln(s);
    
    for i := 1 to length(s) div 2 do
        if s[i] <> s[length(s) - i + 1] then begin
            writeln('не палиндром');
            Halt;
        end;
    
    writeln('палиндром');
end.