退役倒计时

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.

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

回复 @傻傻傻傻傻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.
这评测机坑爹。这代码在下面怎么测输出都是对的。。。

本菜鸟逆袭了！

为什么你们的程序看起来好复杂？？？

你们好像都（哔~~~~~~~~~~~~~~~~~）了

一开始写了一个诡异到不行的算法。。

这题交了三遍，身败名裂……

菜鸟路过

居然要用组合数公式，真是不科学= =

<p></p>

组合数学的划分数问题
红书上有,自己去看吧