讨论 / 有什么错?
lxl 2012-07-20 18:13:00
点我顶贴 收藏 删除
var

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

#1 hhw50113@2010-06-15 18:52:00
回复 删除
哪道?
#2 lxl@2010-06-16 00:19:00
回复 删除
499

499

#3 郑执@2012-07-20 18:13:00
回复 删除
何必呢,LZ?其实不用这种方法也可以
查看更多回复
提交回复