主题：阶乘(difficult)
abcwuhang
[专家分：1840] 发布于 2006-10-29 17:08:00
[em10][em10]
输入一个数,要求你输出它的阶乘的答案.(注意:输入的这个数小于等于10的7次方!!!)
(我用数组来保存数据,但到10000以上就爆机了.汗~~~~)
[em18][em18][em10][em10]
回复列表 （共28个回复）
21 楼
abcwuhang [专家分：1840] 发布于 2007-07-13 18:33:00
我需要的是程序!!
感觉程序编起来有些烦
22 楼
cmy28 [专家分：380] 发布于 2007-07-13 20:39:00
哦
23 楼
cmy28 [专家分：380] 发布于 2007-07-13 20:59:00
{$n+}
Program tt;
var
i,n:longint;
l,s:extended;
begin
readln(n);
s:=0;
for i:=1 to n do
begin
l:=ln(i);
s:=s+l;
end;
i:=trunc(s/ln(10))+1;
writeln(i);
end.
这下你满意了吧！！就是套了那个公式[em9]
24 楼
cmy28 [专家分：380] 发布于 2007-07-14 17:31:00
给分拉！！
25 楼
maxumi [专家分：2200] 发布于 2007-07-17 16:06:00
{$N+}
program jiecheng;
var
i,n,x:longint;
s:extended;
begin
readln(n);
s:=1;
x:=1;
for i:=1 to n do begin
s:=s*i;
while s>10 do begin
s:=s/10;
inc(x);
end;
end;
writeln(x);
end.
程序未经调试
26 楼
迷路的天使 [专家分：1340] 发布于 2007-11-21 17:50:00
我想问你```````~```````~
27 楼
迷路的天使 [专家分：1340] 发布于 2007-11-21 17:51:00
我想问你```~~~``
28 楼
迷路的天使 [专家分：1340] 发布于 2007-11-21 17:51:00
我想问你~~`~
我来回复
您所在位置：