pascal 猴子选大王猴子们排好一圈,顺序从1到n进行编号,从第1号开始报数1,2,……,数到m号时该号的猴子退出到圈外,如此报数直到圈内只剩下一只猴子时,这只猴子就任大王.现在给出n,m的值,请输

pascal 猴子选大王猴子们排好一圈,顺序从1到n进行编号,从第1号开始报数1,2,……,数到m号时该号的猴子退出到圈外,如此报数直到圈内只剩下一只猴子时,这只猴子就任大王.现在给出n,m的值,请输
pascal 猴子选大王
猴子们排好一圈,顺序从1到n进行编号,从第1号开始报数1,2,……,数到m号时该号的猴子退出到圈外,如此报数直到圈内只剩下一只猴子时,这只猴子就任大王.
现在给出n,m的值,请输出猴子大王的编号.
数据输入
从文件中读入,只有一行,有两个整数n和m（1

pascal 猴子选大王猴子们排好一圈,顺序从1到n进行编号,从第1号开始报数1,2,……,数到m号时该号的猴子退出到圈外,如此报数直到圈内只剩下一只猴子时,这只猴子就任大王.现在给出n,m的值,请输
这个是约瑟夫问题的最简单形式,可以用固定公式搞定,程序最简单,用时最少：
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.