free pascal狐狸捉兔子:围绕着山顶有10个洞,狐狸要吃兔子,兔子说:“可以,但必须找到我,我就藏身于这十个洞中,你从10号洞出发,先到1号洞找,第二次隔1个洞找,第三次隔2个洞找,以后如此类推,

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/09 05:44:47

free pascal狐狸捉兔子:围绕着山顶有10个洞,狐狸要吃兔子,兔子说:“可以,但必须找到我,我就藏身于这十个洞中,你从10号洞出发,先到1号洞找,第二次隔1个洞找,第三次隔2个洞找,以后如此类推,
free pascal狐狸捉兔子:围绕着山顶有10个洞,狐狸要吃兔子,兔子说:“可以,但必须找到我,我就藏身于这
十个洞中,你从10号洞出发,先到1号洞找,第二次隔1个洞找,第三次隔2个洞找,以后如此类推,次数不限.”但狐狸从早到晚进进出出了1000次,仍没有找到兔子.问兔子究竟藏在哪个洞里?

free pascal狐狸捉兔子:围绕着山顶有10个洞,狐狸要吃兔子,兔子说:“可以,但必须找到我,我就藏身于这十个洞中,你从10号洞出发,先到1号洞找,第二次隔1个洞找,第三次隔2个洞找,以后如此类推,
第2、4、6、9都行
var
a:array[1..10] of boolean;
i,t:integer;
begin
for i:=1 to 10 do
a[i]:=true;
a[1]:=false;
j:=1;
for i:=2 to 1000 do
begin
\x09 t:=i+t;
\x09 while t>10 do
\x09 dec(t,10);
\x09 a[t]:=false;
\x09end;
for i:=1 to 10 do
write(a[i],' ');
end.