Question

Решить на паскале, нужно: дана строка, удалить текст находящийся в скобках (вместе со скобками) я тут начал делать, вот только с удалением у меня ничего не получается, напишите как можно сделать вот как я делал: program zd; uses crt; var s: string; i,l,n,t,y: integer; begin clrscr; writeln('введите строку'); readln(s); l: =length(s); for i: =1 to n do begin if s[i]='(' then t: =i; {здесь присваивал номер найденной скобки} if s[i]=')' then y: =i; {так же, как и выше} delete (s,t,i); {у меня получается, что он удаляет с открывающей скобки и всё что находится вправо, а левая часть до скобки остается нетронутой} end; writeln('данный результат =', s); readln; end.

Answer 1

var a, b, i :integer;   
     s :string;
begin
   readln (s);
   a:=pos('(',s);
   b:=pos(')',s);
   if b=0 then write ('ERROR') else
   begin 
      while s[a]<>')' do delete (s,a,1);
      delete (s,a,1);
      writeln (s);
   end;
end.