NOIP2001 数的划分procedure w

参考答案:

正确答案：

begin
if dep=n then begin
if s>=pre then inc(r); exit;
end;
for j:=pre to s div 2 do work(dep+1,j,s-j);
end;
类似：
procedure try(dep:integer);
var i:integer;
begin
if dep=k then begin
i