讨论 / 哪位大牛帮忙看看什么地方出了问题?谢谢!
zyzjsz 2010-08-01 20:01:00
点我顶贴 收藏 删除
状态: Unaccepted

测评机: Xeond[6]

得分: 80分

提交日期: 2010-8-2 10:48:00

有效耗时: 719毫秒

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

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

测试结果3: 通过本测试点|有效耗时47ms

测试结果4: 通过本测试点|有效耗时47ms

测试结果5: 测试结果错误.错误结果为:3

正确结果应为:8

测试结果6: 通过本测试点|有效耗时62ms

测试结果7: 通过本测试点|有效耗时79ms

测试结果8: 通过本测试点|有效耗时203ms

测试结果9: 通过本测试点|有效耗时78ms

测试结果10: 测试结果错误.错误结果为:1

正确结果应为:6

提交代码: view sourceprint

var

i,j,k,l,m,n,s,t:longint;

begin

read(n);

s:=1;

l:=0;

for i:=2 to n do

begin

t:=i;

while (t mod 2=0) do

begin

l:=l+1;

t:=t div 2;

end;

while (t mod 5=0) do

begin

l:=l-1;

t:=t div 5;

end;

t:=t mod 10;

s:=(s*t) mod 10;

end;

l:=l mod 4;

for i:=1 to l do

s:=s*2;

s:=s mod 10;

write(s)

end.

查看更多回复
提交回复