这道题也做过,找找看.
希望把标题改一改,
改成大数阶乘的问题.

文章评论 

评论人：Moz   时间：2006-8-14 18:08:00
  
我用的是QB，其实还可以压缩一下的。
deflng a-z
s$="1"
O&=0
for i=1 to 100000
s2$=""
l=0
n=0
for j=len(s$) to 1 step -1
k=val(mid$(s$,j,1))
l=k*i+l
m=l mod 10
l=l\10
if m=0 and n=0 then
O&=O&+1
else
n=1
s2$=chr$(48+m)+s2$
end if
next
s$=ltrim$(str$(l))+s2$
print i,len(s$)+O&
next

只输出该数的阶乘的位数,几千位不太好显示,可以写文件去慢慢看的.