Проверить, являются ли данные два слова обращенными друг к другу, то есть первое читается слева направо так же, как второе справа

[FYNZIK]

Проверить, являются ли данные два слова обращенными друг к другу, то есть первое читается слева направо так же, как второе справа налево.

[Stilet]

if Length(s)<>Length(s2) then write('no') else begin
 for i:=1 to Length(s) do
  if s[i]<>s2[Length(s2)-1+1] then begin write('no'); break;end;
end;

Идея ясна?

[Poma][a]

s2[Length(s2)-1+1]

Улыбнуло

[Аватар]

Дык чего улыбаться, подправь описку s2[Length(s2)-i+1]
а то ТС забросает не работает

[Stilet]

Улыбнуло

Мдя )
Ты прав, опечатка.