P: =proc(q,h)局部a,b,c,d,n,t,x;x: =1;
a: =1/h;b: =ilog10(h)+1;c: =小时;d: =小时;打印(d);t: =1;
对于从x到q的n,do if trunc(evalf(a+(-1)^t/(c*n),500)*10^(b+ilog10(n)+1))=dx10^
则x:=n+1;b: =b+ilog10(n)+1;d: =d*10^(ilog10(n)+1)+n;a: =a+(-1)^t/(c*n);c: =c*n;t: =t+1;打印(n);fi;od;结束:P(10^9,3);