Question

Определить, является ли введенное предложение палиндромом (читается одинаково сначала до конца и наобарот ''аргентина манит негра'')
вот что у меня получилось
program z1;var s,s1,s2,b:string; a,c,d,e,z,r,i:integer;beginwriteln ('введите предложение ');readln(s);for c:=1 to length(s) dobeginz:=pos(' ',s);delete(s,z,1);end;
for i:=length(s) downto 1 dobeginwrite(s[i]);end;

if s=(s[i]) then writeln ('это палиндром') elsewriteln('не палиндром');end.

Answer 1

Var
    s, s1: string;
    i: integer;

begin
    writeln('введите предложение ');
    readln(s);
    
    repeat
        i := pos(' ', s);
        delete(s, i, 1);
    until i = 0;
    
    s1 := '';
    for i := length(s) downto 1 do
        s1 := s1 + s[i];
    
    if s = s1 then
        writeln('это палиндром')
    else
        writeln('не палиндром');
end.