LAOZU (UID: 73830)
注册于 2009-04-15 13:16:43, 最后登录于 2009-06-14 09:33:10, 目前离线.
解决了 11 道题目，RP: 88.57 (No. 13720)
-
讨论 (1)
-
贡献 (2)
-
递交 (23)
最近递交
状态 题目 递交者 时间 内存 语言 递交时间 P1057 盖房子 LAOZU 0ms 0 Bytes Pascal 2009-06-07 16:16:35 P1307 黑皮的正方形 LAOZU 0ms 0 Bytes Pascal 2009-06-07 15:51:25 P1021 Victoria的舞会1 LAOZU 0ms 0 Bytes Pascal 2009-05-25 13:35:25 P1100 加分二叉树 LAOZU 0ms 0 Bytes Pascal 2009-05-24 15:39:40 P1324 黑皮的蛋糕 LAOZU 0ms 0 Bytes Pascal 2009-05-18 13:24:23 P1007 绕钉子的长绳子 LAOZU 0ms 0 Bytes Pascal 2009-05-17 15:52:03 P1025 小飞侠的游园方案 LAOZU 0ms 0 Bytes Pascal 2009-05-12 13:15:39 P1097 合并果子 LAOZU 0ms 0 Bytes Pascal 2009-05-05 13:27:24 P1123 均分纸牌 LAOZU 0ms 0 Bytes Pascal 2009-05-05 13:19:13 P1324 黑皮的蛋糕 LAOZU 0ms 0 Bytes Pascal 2009-05-04 13:51:45
个人简介
我是坏人
1066 1291 1324
1133 1034
zuo ye:1117 1121 1128
Central Order
var s:longint;
n,k:byte;
procedure f(i,lp,last:byte);
var j,start:byte;
begin
if (i=k)then begin
if n-lpn-k+i then start:=n-k+i else start:=lp+last;
for j:=start downto lp+((n-lp)div(k-i+1)) do
f(i+1,j,j-lp);
end;
begin
readln(n,k);
f(1,0,n);
writeln(s);
end.