狼追兔子问题pascal链表

狼追兔子问题pascal链表

狼追兔子，兔子躲进了10个环形分布的洞的某一个中。狼在第1个洞中没有找到兔子，就间隔1个洞，到第3个洞中去找，也没找到兔子，就间隔2个洞，到第6个洞中去找。以后狼每次多隔1个洞去找兔子。这样狼一直找不到兔子。请问兔子可能躲在哪个洞中？
请用free pascal做，并且不要用数组而且要用循环语句，例for和repeat

===========================================================================

//程序中的数组完全可以用简单变量替代，这里为了减少代码量所以用了
var
i,j:longint;
k:array[1..10] of longint;
sum:longint;
begin
for j:=1 to 10 do k[j]:=0;
i:=0;
sum:=0;
repeat
inc(i);
sum:=sum+i;
case (sum mod 10) of
1:inc(k[1]);
2:inc(k[2]);
3:inc(k[3]);
4:inc(k[4]);
5:inc(k[5]);
6:inc(k[6]);
7:inc(k[7]);
8:inc(k[8]);
9:inc(k[9]);
0:inc(k[10]);
end;
// writeln(i:4,sum mod 10:4);
until  i>10000;
for j:=1 to 10 do if k[j]=0 then write(j:2);
writeln;
end.

结果为：2  4  7  9

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息