Определить, является ли введенное предложение палиндромом (читается одинаково сначала до конца и наобарот ''аргентина манит негра'') вот что у меня получилось 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.
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.