определить, является ли введенное предложение палиндромом (читается одинаково сначала до конца и наобарот ''аргентина манит негра'')
вот что у меня получилось
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.
вот что у меня получилось
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.
More Questions From This User See All
Answers & Comments
Verified answer
Vars, 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.