新的 猴子选大王 代码 猴子选大王 功能:设编号为1,2,3,……,n的n(n>0)个猴子按顺时针方向围坐
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/02 12:18:02
![新的 猴子选大王 代码 猴子选大王 功能:设编号为1,2,3,……,n的n(n>0)个猴子按顺时针方向围坐](/uploads/image/z/10188271-55-1.jpg?t=%E6%96%B0%E7%9A%84+%E7%8C%B4%E5%AD%90%E9%80%89%E5%A4%A7%E7%8E%8B+%E4%BB%A3%E7%A0%81+%E7%8C%B4%E5%AD%90%E9%80%89%E5%A4%A7%E7%8E%8B+%E5%8A%9F%E8%83%BD%EF%BC%9A%E8%AE%BE%E7%BC%96%E5%8F%B7%E4%B8%BA1%2C2%2C3%2C%E2%80%A6%E2%80%A6%2Cn%E7%9A%84n%28n%3E0%29%E4%B8%AA%E7%8C%B4%E5%AD%90%E6%8C%89%E9%A1%BA%E6%97%B6%E9%92%88%E6%96%B9%E5%90%91%E5%9B%B4%E5%9D%90)
新的 猴子选大王 代码 猴子选大王 功能:设编号为1,2,3,……,n的n(n>0)个猴子按顺时针方向围坐
新的 猴子选大王 代码 猴子选大王 功能:设编号为1,2,3,……,n的n(n>0)个猴子按顺时针方向围坐
新的 猴子选大王 代码 猴子选大王 功能:设编号为1,2,3,……,n的n(n>0)个猴子按顺时针方向围坐
program monkeys;
var
a:array[1..100] of 0..1;
i,j,l,n:integer;
begin
write('How many monkeys are there?:');
readln(n);
l:=n;
for i:=1 to n do
a[i]:=1;
i:=0;
while n>1 do
begin
j:=3;
while j0 do
begin
i:=i mod 15+1;
j:=j-a[i];
end;
a[i]:=0;
n:=n-1;
end;
for i:=1 to l do
if a[i]=1 then write(i);
end.