liruyuan 2011-09-12 05:27:00
点我顶贴
收藏
删除
测试结果8: 选手程序运行超过时限
测试结果9:测试结果错误.错误结果为:812
正确结果应为:85713
测试结果10:测试结果错误.错误结果为:812
正确结果应为:3270436
我的程序
program Project1;
var
a,b:array[1..40000]of longint;
s:int64;
t,i,j,m,n:longint;
begin
readln(n);
for i:=1to 2*n do
if i mod 2=0 then a[i]:=i div 2
else if i mod 2=1 then begin inc(t); a[i]:=n+t; end;
m:=1;
repeat
inc(s); m:=a[m];
until (s<>0)and(m=1);
writeln(s);
readln(i);
end.