一道非常简单的pascal题目,求大师用最简洁的方法做一下,N只猴子选大王.

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/04/30 16:31:54

一道非常简单的pascal题目,求大师用最简洁的方法做一下,N只猴子选大王.
选举办法如下：从头到尾1,2,3报数,凡报3的就退出,余下的从尾到头1.2.3报数,凡报3的退出；以此类推,当剩下两只鸡的时候,取这时报数报1的为王.若相当猴王,请问最初应该占什么位置?

{n只猴子选大王,数到3的淘汰,剩2只时数1的为大王}
var
\x09a:array[1..10000] of integer; {存放猴子序号}
\x09i,j,k,n,s:integer;
begin
\x09readln(n);
\x09for i:=1 to n do a[i]:=i;
\x09k:=0; i:=0;
\x09repeat
\x09\x09inc(i); if i>n then i:=1;
\x09\x09if a[i]0 then inc(k);
\x09\x09if k mod 3=0 then a[i]:=0;
\x09\x09s:=0;
\x09\x09for j:=1 to n do if a[j]0 then inc(s);
\x09until s=2;
\x09repeat
\x09\x09inc(i); if i>n then i:=1;
\x09until a[i]0;\x09
\x09writeln(a[i]);
end.
再问：可以用布尔语句做一下吗？
再问：布尔
再答： var
\x09a:array[1..10000] of boolean;
\x09i,j,k,n,s:integer;
begin
\x09readln(n);
\x09for i:=1 to n do a[i]:=true;
\x09k:=0; i:=0;
\x09repeat
\x09\x09inc(i); if i>n then i:=1;
\x09\x09if a[i] then inc(k);
\x09\x09if a[i] and(k mod 3=0) then
\x09\x09begin a[i]:=false; end;
\x09\x09s:=0;
\x09\x09for j:=1 to n do if a[j] then inc(s);
\x09until s=2;

\x09repeat
\x09\x09inc(i); if i>n then i:=1;
\x09until a[i];\x09
\x09writeln(i);
end.

一道非常简单的pascal题目,求大师用最简洁的方法做一下,N只猴子选大王. 一道非常简单的pascal题目,求大师用最简洁的方法做一下,N只猴子选大王.选举办法如下：从头到尾1,2,3报数,凡报3 pascal N只猴子选大王恩程序尽量简单.初学者水平求一道简单的pascal题目一道简单的free pascal题目,各位free pascal大师解答一下吧. 猴子选大王pascal pascal 猴子选大王猴子选大王 Pascal 一道简单的pascal题目一道 PASCAL的简单题目帮我做一道简单的编程题目(pascal) 猴子选大王的编程,数据结构方法