Question

一道简单的free pascal练习题

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

Answer 1

lz，这个题目必须得用到数组，因为要用数组标记，不用数组不行，建议你先看看数组这一章
lz，我记得原题是说狼进洞1000次，都没找到圆型兔子，求兔子在哪个洞
如果lz只求结果的话，用嫌悄下面的代码橘者猜吧
begin
writeln('2 4 7 9');
end.

追问

额

但是我可以完完全全的告诉你可以用循环做的。

那你可以告诉我一下思路吗？

追答

思路：定义1个数组，用循环枚举每一个洞（可以用到mod），用倍数的原理来枚举狼进出的每一个洞（标记为false），最后看看狼没有进入哪个洞，就输出

Answer 2

/谨银绝/程序中的数组完全可以用简单变量替代，这里为搏禅了减少代码量所以用祥姿了
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

追答

//将1234567890这闭合的十个洞想象成
//由这十个数字串一个接一个接起来的无限长的直线
var
i,j:longint;
k:array[0..9] of longint;
sum:longint;
begin
for j:=0 to 9 do k[j]:=0;
i:=0;
sum:=0;
repeat
inc(i);
sum:=sum+i;
inc(k[sum mod 10]);
until i>10000;
for j:=0 to 9 do if k[j]=0 then write(j:2);
writeln;
end.