Определить, является ли введенное предложение палиндромом (читается одинаково сначала до конца и наобарот ''аргентина манит негра'')

вот что у меня получилось

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.

Question

Информатика

Петронилла

18 марта, 00:38

Определить, является ли введенное предложение палиндромом (читается одинаково сначала до конца и наобарот ''аргентина манит негра'')

вот что у меня получилось

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.

+2

Ответы (1)

Знаете ответ?

Арся · 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.