NOIP2001 数的划分 procedure work（dep,pre,s:longint); {入口为work（1,1,n)}{dep为当前试放的

procedure work(dep,pre,s:longint); {入口为work(1,1,n)}

{dep为当前试放的第dep个数,pre为前一次试放的数,s为当前剩余可分的总数}

var j:longint;