Лиу канг: uses crt; var s,a:string; i,d,f,g,h:integer; begin clrscr; write("Vvedite stoku: "); read(s); a:=s; for i:=1 to length(s) do begin if s="(" then begin inc(g); d:=i; end; if s=")" then begin inc(h); f:=i; end; if (g=h) end (f>d) then delete(s,d,abc(f-d+1)); end; if a=s then write("Skobki postavleni nepravilno :)") else write(s); readkey; end.
Ссылка на пост
29 апр 2008 в 15:26