见《算法艺术与信息学竞赛 》 刘汝佳 黄亮 著 P12 1.2.7@KZ

var
n,k,i,j:longint;
f:array[0..maxn,0..maxk] of longint;
begin
assign(input,'sdhf.in');assign(output,'sdhf.out');
reset(input);rewrite(output);
readln(n,k);
f[0,0]:=1;
for i:=1 to n do
for j:=1 to k do
if(i>=j)then f[i,j]:=f[i-j,j]+f[i-1,j-1];
writeln(f[n,k]);
close(input);close(output);
end.

回复 @cstdio :
我戳。。。居然这么没有素质

10分

回复 @萌萌哒姐姐 :
学姐哈哈哈

21世紀、世界の麻雀競技人口は一億人の大台を突破。
日本でも大規模な全国大会が毎年開催され、プロに直結する成績を残すべく高校麻雀部員達が覇を競っていた。
これはその頂点を目指す少女達の軌跡……。

我写出来啦！！！

回复 @傻傻傻傻傻er :
hua dian ye le
同学。诚挚推荐。cook, high paid job~cook,never lost job~

回复 @albert :
额。。。这不是有writeln(ans)吗。。。

回复 @萌萌哒姐姐 :
找打？

回复 @グッド大きな��菌 :
逗得就是你

回复 @萌萌哒姐姐 :
逗我。。

回复 @傻傻傻傻傻er :
那只，站出来说话

var k,n,i,j:longint;
p:array[1..200,1..100] of longint;
begin
assign(input,'sdhf.in');reset(input);
assign(output,'sdhf.out');rewrite(output);
readln(n,k);
p[0,0]:=1;
for i:=1 to n do
for j:=1 to k do
if (i>=j) then
p[i,j]:=p[i-1,j-1]+p[i-j,j];
writeln(p[n,k]);
close(input);close(output);
end.
这评测机坑爹。这代码在下面怎么测输出都是对的。。。

输入是实数，输出要求是整数，要注意

233333
手抖了，提了三遍才过

回复 @MC万岁 :
Hello Changhao

额，还好我是普及组

回复 @MC万岁 :
嘿嘿嘿