状态: Unaccepted

测评机： Xeond[6]

得分： 20分

提交日期： 2013-7-25 10:02:00

有效耗时： 407毫秒

测试结果1: 通过本测试点|有效耗时235ms

测试结果2: 通过本测试点|有效耗时172ms

测试结果3: 输出过长|用户输出数据超过标准输出两倍[标准输出1位|选手输出10位]

测试结果4:

测试结果5:

测试结果6:

测试结果7:

测试结果8:

测试结果9:

测试结果10:

程序：

var n,s,i:longint;

a:array[1..3141592]of longint;

begin

read(n);

s:=1;

for i:=1 to n do

begin

s:=s*i;

a[i]:=s div 10;

while a[i]>=10 do

a[i]:=a[i] div 10;

end;

write(a[n]);

end.

大侠们！！看看哪里出错了！！！！！

var

n,i:longint;

t:real;

begin

read(n);

t:=1;

for i:=2 to n do

begin

t:=t*i;

while t>=10 do

t:=t/10;

end;

write(trunc(t));

end.