Algoritmia - Numeros combinatorios

Procedimiento GenerarCombinaciones(N, M):

    Si M > N entonces

        Imprimir "No es posible generar combinaciones"

        Retornar

    Declarar arreglo de tamaño M para almacenar la combinación actual

    Inicializar el arreglo con los primeros M elementos de la secuencia (1, 2, ..., M)

    Mientras el último elemento del arreglo no sea mayor que N:

        Imprimir la combinación actual

        i = M

        Mientras i > 0 y arreglo[i] == N - M + i hacer

            i = i - 1

        Si i > 0 entonces

            arreglo[i] = arreglo[i] + 1

            Para j desde i + 1 hasta M hacer

                arreglo[j] = arreglo[i] + (j - i)

        Sino

            Salir del bucle principal

    Fin Mientras

Fin Procedimiento

GenerarCombinaciones(3, 2)

1 2

1 3

2 3