W wjiachun Unregistered / Unconfirmed GUEST, unregistred user! 2000-09-08 #2 哈哈,n! 你会求吧?循环或递归都可以。 n!有多少位(十进制)=(n! div 10)+1;
H Hexi Unregistered / Unconfirmed GUEST, unregistred user! 2000-09-08 #3 for i:=1 to n do S:=S+log(i); Result:=Trunc(S+1)