作业帮 > 综合 > 作业

猴子选大王pascal

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/04/29 12:36:33
猴子选大王pascal
n只猴子选大王,选举办法如下:从头到尾1,2,3报数,凡报3的退出,余下的从尾到头1,2,3报数,凡报3的退出...如此类推,当剩下两只猴子时,取这时报1的为王,若想当猴王,请问当初应占据什么位置?
var a:array[1..10000]of byte;
n,i,j,k,d,s:integer;
begin
fillchar(a,sizeof(a),1);
readln(n); writeln;
i:=2; k:=0; s:=0; d:=-1;
while s