#46724: 解法 演算法


ck1090932@gl.ck.tp.edu.tw (陳邦仁)


 r = 0; 
     for i from 1 to n do 
         r := (r + k) mod i; 
     return r+1;