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

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

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 июля, 07:44

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

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

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.

+5

Ответы (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.