题意
n个人(n<=100)围成一圈,从第一个人开始报数,数到m的人出列,再由下一个人重新从1开始报数,数到m的人再出圈,……依次类推,直到所有的人都出圈,请输出依次出圈人的编号.
var
n,m,i,j,tj:longint;
a:array[0..200]of longint;
begin
read(n,m);
fillchar(a,sizeof(a),0);
i:=0;j:=0;tj:=0;
repeat
inc(i);
if i>n then i:=1;
if (a[i]=0) then
begin
inc(j);
if j=m then
begin
a[i]:=1;
j:=0;
write(i,' ');
inc(tj);
end;
end;
until tj=n;
end.