sωēeτ¨fαrm » 日志 » 数的划分(NOIP2001)
数的划分(NOIP2001)
deadrain 发表于 2007-08-15 19:34:40
不想说什么，直接搜就可以了，注意数据范围。
CODE:
-------------------------------------------------
CODE:
-------------------------------------------------
program p1117;
var
n,k,sum:longint;
procedure search(n,k,c:longint);
var i,j:integer;
begin
if n=0 then exit;
if k=1 then begin inc(sum);exit;end;
i:=n div k;
for j:=c to i do
search(n-j,k-1,j);
end;
begin
readln(n,k);
sum:=0;
search(n,k,1);
writeln(sum);
end.
相关日志:
- » NOIP结束了
- » 镇江一游（2）
- » 镇江一游（1）
- » zoj 1002 Fire Net
- » 告别之战
收藏:
QQ书签
del.icio.us
订阅:
Google
抓虾
