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

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

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

回复 @傻傻傻傻傻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万岁 :
嘿嘿嘿

作为同机房的同学恭喜你。。。出名了@MC万岁

回溯就是太慢了！

水题，居然错了不下20次！

回复 @MC万岁 :
噢哈哈竟然回我了~~~我是一个神秘的过路人

回复 @萌萌哒姐姐 :
呵呵呵...

回复 @yhr :
C++说个球！！！老子pascal

练一下dijkstra。注意并不一定会松弛所有顶点。

解题报告：http://blog.csdn.net/wmdcstdio/article/details/50152713
膜ls万古犇@Chenyao2333