Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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*()/();