P: =proc(q,h)局部a,b,d,n,t,z;a: =1/h;b: =ilog10(h)+1;
d: =小时;打印(d);t: =2;对于从1到q do的n
z: =评估(评估(a+1/(t*n),100)*10^(b+ilog10(n)+1),100;
z: =trunc(z-frac(z));如果z=d*10^(ilog10(n)+1)+n
则b:=b+ilog10(n)+1;d: =d*10^(ilog10(n)+1)+n;a: =a+1/(t*n);t: =t+1;
打印(n);fi;od;结束:P(10^9,3);
|