INPUT:N(5,1,100);fc:=c;fo:=o;cc:0*c,PRECISION4,LINETHICK0;oo:0*c,PRECISION4,LINETHICK0;t1:=0*c;t2:=0*c;for i=1 to datount do beginif i=1 and fc[i]>fo[i] thencc[i]:=fc[i];oo[i]:=fc[i];if i=1 and fc[i]1 thencc[i]:=cc[i-1];oo[i]:=oo[i-1];if i>1 and fc[i]>cc[i]*(1+n/1000) then begincc[i]:=cc[i-1]*(1+n/1000);oo[i]:=cc[i-1];end;if i>1 and fc[i]<oo[i]/(1+n/1000) then beginoo[i]:=oo[i-1]/(1+n/1000);cc[i]:=oo[i-1];end;if oo[i]=oo[i-1] thent1[i]:=t1[i-1]+1;if cc[i]=cc[i-1] t

 解锁全文需 1  财富值,免费注册即送20财富值！