贝茜正在与她的N-1(2 <= N <= 100)个朋友打牌。她们玩的牌一副为K(N<=K<=100,000，K 为N 的倍数)张。所有牌中，一共有M(M = K/N)张“好牌”，其余的K-M 张为“差牌”。贝茜是游戏的发牌者，很自然地，她想把所有好牌都留给自己。她热衷于
获胜，即使为此必须采取一些不正当的手段。
在若干局游戏后，贝茜的朋友们开始怀疑贝茜在游戏中作弊，于是她们想了个对策：使用新的发牌规则。规则具体如下：
1. 贝茜把牌堆的最上面一张发给她右边的奶牛；
2. 每当贝茜发完一张牌，她都得将牌堆顶部接下来的P(1 <= P <= 10)张牌放到底部去（一般把这个操作称为切牌）；
3. 然后，贝茜对逆时针方向的下一头奶牛重复上述的操作；
获胜，即使为此必须采取一些不正当的手段。
在若干局游戏后，贝茜的朋友们开始怀疑贝茜在游戏中作弊，于是她们想了个对策：使用新的发牌规则。规则具体如下：
1. 贝茜把牌堆的最上面一张发给她右边的奶牛；
2. 每当贝茜发完一张牌，她都得将牌堆顶部接下来的P(1 <= P <= 10)张牌放到底部去（一般把这个操作称为切牌）；
3. 然后，贝茜对逆时针方向的下一头奶牛重复上述的操作；
贝茜绝望地认为，她再也不可能获胜了，于是她找到了你，希望你告诉她，将好牌放在初始牌堆的哪些位置，能够确保它们在发完牌后全集中到她手里。顺带说明一下，我们把牌堆顶的牌定义为1 号牌，从上往下第二张定义为2 号牌，依此类推。
题解：
模拟，把移动到后方的牌放在数组后面。
代码：
vara:array[0..4000000] of longint;b:array[0..100000] of longint;n,k,p,t,s,f:longint;
procedure sort(i,j:longint);
varl,r,m:longint;
beginl:=i;r:=j;m:=b[(i+j) shr 1];repeatwhile b[i]<m do inc(i);while b[j]>m do dec(j);if i<=j thenbeginb[0]:=b[i];b[i]:=b[j];b[j]:=b[0];inc(i);dec(j);end;until i>j;if i<r then sort(i,r);if l<j then sort(l,j);
end;
vari,l:longint;
beginreadln(n,k,p);t:=1;l:=1;for i:=1 to k doa[i]:=i;for i:=1 to k dobeginf:=(i-1)*(p+1)+1;if t=n thenbeginb[l]:=a[f];inc(l);t:=0;end;a[f]:=0;for s:=1 to p dobegina[k+(i-1)*p+s]:=a[f+s];a[s+f]:=0;end;inc(t);end;sort(1,l-1);for i:=1 to l-1 dowriteln(b[i]);
end.