дана символьная строка заменить в ней последовательности символов расположенных между открывающими и закрывающими скобками на точки.предполагается,что внутри пары скобок вложенных нет
Ответ
Автор - kage1998
program gt; var a:string; l,i,p:integer; begin readln(A); l:=length(A); p:=0; for i:=2 to l do begin if(a[i-1]='(' )then p:=1; if(a[i]=')' )then p:=0; if(p=1)then a[i]:='.'; end; writeln(a); end.