Question

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

Answer 1

program raf105;

var

 s: string;

 pos1,pos2: integer;

begin

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

 readln(s);

 repeat

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

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

   if (pos1<>0) and (pos2<>0)

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

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

 writeln(s);

end.

PascalABC 3.4.2

Answer 2

Конечно, вот пример программы на языке Python, которая удаляет все символы, расположенные между скобками, включая сами скобки:

pythonCopy code
def destroy_between_brackets(input_string):
    stack = []
    result = []
    
    for char in input_string:
        if char == '(':
            stack.append('(')
        elif char == ')':
            if stack:
                stack.pop()
            else:
                # Если стек пустой, значит, закрывающая скобка без соответствующей открывающей.
                # В этом случае игнорируем закрывающую скобку.
                continue
        
        # Добавляем символ в результат, если он не находится между скобками
        if not stack:
            result.append(char)
    
    return ''.join(result)

# Пример использования:
input_sequence = "Это (пример (текста), в котором (есть) скобки)."
result_sequence = destroy_between_brackets(input_sequence)
print(result_sequence)

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