猴子选大王pascaln只猴子选大王,选举办法如下：从头到尾1,2,3报数,凡报3的退出,余下的从尾到头1,2,3报数,凡报3的退出．．．如此类推,当剩下两只猴子时,取这时报1的为王,若想当猴王,请问当初

Question

猴子选大王pascal
n只猴子选大王,选举办法如下：从头到尾1,2,3报数,凡报3的退出,余下的从尾到头1,2,3报数,凡报3的退出．．．如此类推,当剩下两只猴子时,取这时报1的为王,若想当猴王,请问当初应占据什么位置?

Answer 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