作业帮 > 综合 > 作业

pascal 猴子选大王

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/04/29 08:28:13
pascal 猴子选大王
猴子们排好一圈,顺序从1到n进行编号,从第1号开始报数1,2,……,数到m号时该号的猴子退出到圈外,如此报数直到圈内只剩下一只猴子时,这只猴子就任大王.
现在给出n,m的值,请输出猴子大王的编号.
数据输入
从文件中读入,只有一行,有两个整数n和m(1
这个是约瑟夫问题的最简单形式,可以用固定公式搞定,程序最简单,用时最少:
var
n,m,i,s:integer;
begin
read(n,m);
for i:=2 to n do
s:=(s+m) mod i;
writeln(s+1);
end.