(можна пожалуйста в виде программки) Уничтожить по данной последовательности все знаки,

(можна пожалуйста в виде программки)
Убить по данной последовательности все знаки, расположенные меж скобками ( "(...)"). Сами скобки также обязаны быть
уничтожены. Подразумевается, что снутри каждой пары скобок иных скобок нет.

Задать свой вопрос
1 ответ

program raf105;

var

 s: string;

 pos1,pos2: integer;

begin

 writeln('Введите строчку: ');

 readln(s);

 repeat

   pos1:= pos('(',s);

   pos2:= pos(')',s);

   if (pos1lt;gt;0) and (pos2lt;gt;0)

     then delete(s,pos1,pos2-pos1+1);

 until (pos1=0) or (pos2=0);

 writeln(s);

end.

PascalABC 3.4.2

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт