Дана строка символов, среди которых есть одна раскрывающаяся и одна закрывающаяся скобка. Вывести на экран все символы, расположенные внутри скобок — Pascal(Паскаль)

Пример строки: 1 2 3 ( 4 5 6 ) 7 8 9 0

Program SKOBKI;
 var
 a,b,c,d,e:integer;
 st:string;
 begin
 write('CTPOKA--> ');
 readln(st);
 for a:=1 to length(st) do
 if st[a]='(' then c:=a+1;
 for b:=1 to length(st) do
 if st[b]=')' then d:=b-1;
 for e:=c to d do
 write(st[e]);
 readln;
 end.

Leave a Comment