Задать вопрос
24 февраля, 18:17

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

+4
Ответы (1)
  1. 24 февраля, 19:40
    0
    Var

    s:string;

    i, n, k:integer;

    begin

    Write ('Введите выражение: ') ; Readln (s) ;

    i:=Length (s) ;

    while i>0 do begin

    if s[i]=') ' then begin

    k:=0; Dec (i) ;

    while (s[i]' (') and (i>0) do

    begin Dec (i) ; Inc (k) end;

    Delete (s, i+1, k)

    end;

    Dec (i)

    end;

    Writeln (s)

    end.

    Тестовое решение:

    Введите выражение: 3 * (a+b) / (a-b) ;

    3 * () / () ;
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Введите строку. Удалить все символы, расположенные между круглыми скобками. (Примечание, В строке скобки расставлены правильно, нет ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы