Question

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

Answer 1

program fufufuf;
var s:string; i:integer;
begin
readln(s);
i:=1;
while s[i]<>'(' do i:=i+1; i:=i+1;
while s[i]<>')' do delete(s,i,1);
writeln(s);
end.

Answer 2

спасибо))