一道非常简单的pascal题目,求大师用最简洁的方法做一下,N只猴子选大王.选举办法如下:从头到尾1,2,3报数,凡报3的就退出,余下的从尾到头1.2.3报数,凡报3的退出;以此类推,当剩下两只鸡的时
来源:学生作业学帮网 编辑:学帮网 时间:2024/06/01 01:07:55
一道非常简单的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.
一道非常简单的pascal题目,求大师用最简洁的方法做一下,N只猴子选大王.选举办法如下:从头到尾1,2,3报数,凡报3的就退出,余下的从尾到头1.2.3报数,凡报3的退出;以此类推,当剩下两只鸡的时
一道非常简单的pascal题目,求大师用最简洁的方法做一下,N只猴子选大王.选举办法如下:从头到尾1,2,3报数,凡报3的就退出,余下的从尾到头1.2.3报数,凡报3的退出;以此类推,当剩下两只鸡的时
一道简单的free pascal题目,各位free pascal大师解答一下吧.求2~100中每个数的质因子,输出如下形式:2=23=34=2*2...99=3*3*11100=2*2*5*5请一定是自编,要用我这种水平去做.最好用for循环.并请写上每一步的
一道poj上的题目求poj2253 的pascal程序
求一道简单的pascal题目马戏团有鸟和大象,它们共有 36 个头,100只脚.问有多少只鸟和大象.
理论力学的一道题目求大师解答
一道非常非常非常非常非常非常简单的数学题,“求三角形的面积”题,快回答吧,
一道简单的数学分析题目,求帮忙!
一道非常简单的高数题
一道非常简单的高数题
一道非常简单的方程组.
非常简单的一道数学题
非常简单的化学题目.
一道非常非常简单的生物题
一道简单的题目
一道简单的题目
一道编程题目pascal:用辗转相除法求两数的最大公约数.
一道非常难的题目