Вывести на экран все символы, расположенные внутри скобок
Категория: Delphi/Pascal
2011-08-22 23:30:00
Дана строка символов, среди которых есть одна раскрывающаяся и одна закрывающаяся скобка. Вывести на экран все символы, расположенные внутри скобок.
Пример строки: 1 2 3 ( 4 5 6 ) 7 8 9 0
code: #pascal
- 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.
Поделиться: