狐狸捉兔子

狐狸捉兔子 【问题】围绕着山顶有１０个洞，狐狸要吃兔子，兔子说：“可以，但必须找到我，我就藏身于这十个洞中，你从１０号洞出发，先到１号洞找，第二次隔１个洞找，第三次隔２个洞找，以后如此类推，次数不限。”但狐狸从早到晚进进出出了１０００次，仍没有找到兔子。问兔子究竟藏在哪个洞里？ 【答案】２，４，７，９ 【参考程序１】 const holenumber=10; var hole:array[0..holenumber] of 0..1; step,i,number:longint; begin for i:=0 to 9 do hole[i]:=0; number:=0; for step:=1 to 1000 do begin number:=number+step; {循环地数} i:=number mod holenumber; {第几个洞} hole[i]:=1; end; for i:=0 to holenumber-1 do if hole[i]=0 then write(i:3); readln; end.   【参考程序２】 const m=10; {洞数} var l,f,t:integer; a:array[1..m+1] of 0..1; begin for t:=1 to m do a[t]:=0; f:=0; t:=0; l:=0; repeat l:=l+1; {隔几个洞} t:=t+l; {第几个洞} if t>m+1 then t:=t mod m; if t=0 then t:=10;{循环地找} a[t]:=1;{该洞已进过} f:=f+1; {进洞的次数} until f=1000; for t:=1 to 10 do if a[t]=0 then write(t,' '); readln end.