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.