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.