i,j,k,l,m,n,o,p:longint;
s:string;
begin
read(n);
p:=1;
for o:=1 to n do
p:=p*o;
str(p,s);
l:=length(s);
val(s,p);
if l=10 then k:=p div 1000000000
else
if l=9 then k:=p div 100000000 mod 10
else
if l=8 then k:=p div 10000000 mod 10
else
if l=7 then k:=p div 1000000 mod 10
else
if l=6 then k:=p div 100000 mod 10
else
if l=5 then k:=p div 10000 mod 10
else
if l=4 then k:=p div 1000 mod 10
else
if l=3 then k:=p div 100 mod 10
else
if l=2 then k:=p div 10 mod 10
else
k:=p mod 10;
write(k);
end.
状态: Unaccepted
测评机: Xeost[5]
得分: 20分
提交日期: 2010-6-16 9:20:00
有效耗时: 219毫秒
测试结果1: 通过本测试点|有效耗时172ms
测试结果2: 通过本测试点|有效耗时47ms
测试结果3: 测试结果错误.错误结果为:-6
正确结果应为:2
测试结果4: 测试结果错误.错误结果为:0
正确结果应为:2
测试结果5: 测试结果错误.错误结果为:0
正确结果应为:9
测试结果6: 测试结果错误.错误结果为:0
正确结果应为:8
测试结果7: 测试结果错误.错误结果为:0
正确结果应为:8
测试结果8: 测试结果错误.错误结果为:0
正确结果应为:3
测试结果9: 测试结果错误.错误结果为:0
正确结果应为:1
测试结果10: 测试结果错误.错误结果为:0
正确结果应为:1