program iekavas;
var
i,j:integer;
f,f1:text;
ST:string;
begin
assign(f,'iekavas.in');
assign(f1,'iekavas.out');
reset(f);
while not eof(f) do
read(f,ST);
i:=1;
while i<>length(ST) do
if (ST[i]='(') and (ST[i+1]=')') then
begin
delete(ST,i,2);
dec(i);
end
else inc(i);
rewrite(f1);
write(f1,length(ST));
close(f1);
end.
ето самое последнее мое решение, вродь лучше и ниможет быть, почему непроходит по времени????? напишите свои решегия... заранее благодарен
Сообщение отредактировано: volvo -