Кому не сложно помочь с PascalABC? Дана строка. Некоторые из слов взяты в круглые скобки....

Question

Кому не сложно помочь с PascalABC?
Дана строка. Некоторые из слов взяты в круглые скобки. Написать программу, выводящую исходную строку без скобок.

Comments

Может не просто без скобок, а без слов заключённых в скобки?

---

нет,именно без скобок,слова должны остаться

---

тогда это какая то элементарщина

Answer 1

Var S : String;
Begin
  Readln(S);
  While Pos('(',S)>0 do Delete(S,Pos('(',S),1);
  While Pos(')',S)>0 do Delete(S,Pos(')',S),1);
  Writeln(S);
end.

Comments

спасибо!