组合的生成（1..n中选取k个数的所有方案)procedure solve（dep,pre:integer);vari:integer;

组合的生成(1..n中选取k个数的所有方案)

procedure solve(dep,pre:integer);

var

i:integer;