典型的约瑟夫问题 自己去查吧!

会做的帮一下啊！！！

For I = 1 to n
  A(i) = I
Next I
S=o
X=1
Y=n
Do
 For j=1 to y
   S=s+1
  If s mod k <> 0 then
B(x) = a(j)
X=x+1
  Endif
 Next j
 For m = 1 to x
  A(m) = b(m)
 Next m
  Y=x
Loop y >1
Print a(1)
end

不知道对不对 还请高手指教