Перебор сочетаний из n-элементного множества по k. С++, паскаль абс либо

int X[100];

int N;

void Swap(int a,int b)

int t=X[a];

X[a]=X[b];

X[b]=t;

void Generate(int k)

if (k==N)

for(int i=0;ilt;N;i++)

std::coutlt;lt;X[i]lt;lt;" ";

std::coutlt;lt;"\n";

else

for(int j=k;jlt;N;j++)

Swap(k,j);

Generate(k+1);

Swap(k,j);

int main()

std::coutlt;lt;"N=";

std::cingt;gt;N;

for(int i=0;ilt;N;i++)

X[i]=i+1;

Generate(0);