pascal约瑟夫n个人站成一圈，从某个人开始数数，每次数到m的人就被杀掉，然后下一个人重新开始数，直到最后只剩一个人。现在有一圈人，k个好人站在一起，k个坏人站在一起。从第一个好

Question

pascal约瑟夫
n个人站成一圈，从某个人开始数数，每次数到m的人就被杀掉，然后下一个人重新开始数，直到最后只剩一个人。
现在有一圈人，k个好人站在一起，k个坏人站在一起。从第一个好人开始数数。
你要确定一个最小的m，使得在第一个好人被杀死前，k个坏人先被杀死。
输入
一个k，0输出
一个m
样例：
joseph.in
3
joseph.out
5
另一个样例：
joseph.in
4
joseph.out
30
务必在程序后加一些必要说明，感谢！

Answer 1

给你更好理解的。
这是筛法
var
n,m,i,s,p:integer;
a:array[1..10000] of integer;
begin
read(n,m);//这步不用说了吧？
for i:=1 to n do
a[i]:=1;//先全部赋值1
p:=0;s:=0;//统计人数和报数字用的
repeat
for i:=1 to n do
begin
if a[i]=0
then continue； //用于等会排除出圈者
s:=s+a[i];//不断累加（报数字）
if s=m then//出圈者
begin
write（i,' '）;打印出圈者；
a[i]:=0;//明白刚才continue的意思了吧
p:=p+1;//人数减少一个；
s:=0；//重头报起。
end;
end;
until p=n;//直到人数到了
end。
其实呢，筛法的原理就是：
（1）先统一初始化，一般用for。可以赋值0，1，true，false。
（2） 在数组范围内，根据条件筛选，不符合条件的做反标记。
（3）输出结果。根据标记值输出。
所以，一般需要三个循环