Re: Задача на строки по Pascal
Добавлено: 30 ноя 2009, 09:13
flag:=true;
for i:=1 to length(s) do
begin
if s='(' then flag:=false;
if flag then s1:=s1+s;
if s=')' then flag:=true;
end;
for i:=1 to length(s) do
begin
if s='(' then flag:=false;
if flag then s1:=s1+s;
if s=')' then flag:=true;
end;