Задача со строками

[Undefitied]

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

[JuniorProger]

Ищешь позицию для "(", затем для ")" и удаляешь все символы между ними и так далее. Что сложного то?

[Undefitied]

У меня возникла проблема с "сами скобки не исключать"

[JuniorProger]

Так в чем проблема? Не исключай

[Undefitied]

Добавил скрин, только там на скрине нечайно исправил строчку, "у" забыл в delete.
Сам не додумываюсь

[JuniorProger]

В delete надо не у а количество символов! сделай у=i. Тогда delete(s,x,y-x). Ну или в твоем варианте delete(s,x,y-x+1)

[Undefitied]

Фу епт) спс

[Undefitied]

Возникла проблема: программа удаляет только элементы между первой пары скобок.

[Leshii]

а цикл добавить перед delete не пробовал

for i:=1 to length(s) do begin 
// удаление
//вывод
end;

Вопросы?

[Mad_Cat]

var
s:string;
buf:string;
begin
s:='(ssss Sssdsds)(SDsdsdsD)Sdsds(SSD)(dsdsdss)';
buf:='';
while (pos('(',s)<>0) and  (pos(')',s)<>0) do
begin
buf:=buf+copy(s,1,pos('(',s))+')';
delete(s,1,pos(')',s));
end;
buf:=buf+s;
writeln(buf);
end.