pascal n个数的r个数的组合

const maxn=10;//n的最大值 var n,r,tot:longint; //如果n和r的值再大一点的话，你应该考虑用高精 ans:array[1..maxn] of longint; //记录每个组合 procedure dfs(k,p:longint); //k是当前递归的层数，p是当前数可以取到的最小值，这里p是为了防止重复 var i:longint; begin if k=r+1