[SooM]

Привет всем. Помогите написать программу.

Дана строка , можно ли в ней найти символ , обладающий следующими свойством: перед ним стоит подстрока , составленная из тех же символов , что и подстрока состоящая после данного символа.

Получаеться что есть строка например: курШкур. В ней есть символ "Ш" у которого подстрока "кур" одинаковая со подстрокой после символа "Ш" то-есть "кур".

Но может быть и так: руршуйпз то есть символ между котороми одинаковые подстроки "у".

Вот такая вот проблемка.

[hottabych23]

В цыкле тебе нужно делать эту проверку

Код:

if copy(s,i,j)=copy(s,i+2,j) then writeln('Your char is ',copy(s,i+1,1)); 

потом в другом цыкле додавать j.

[SooM]

Большое спасибо всё сделал