Recherche:

Dans ce cas là tu devrais pouvoir l'écrire comme cela non ?



procedure combinations(AResults: TStrings; AElements: TList<Byte>; ACount : Integer);
///////////////////
procedure...

Salut

Voici un debut de solution


Procedure combinations(results : TStrings;elements : String;k : Integer);
//Fonction auxiliaire récursive pour générer les combinaisons

...

salut

la formule pour les combinaison sans répétition est


et avec répétitions



le code de la factorielle