Chiffre Chance d'un nombre entier

Vous connaissez "le chiffre Chance" associés à un nombre entier X donné?

C'est le chiffre obtenu ne faisant à chaque fois la somme des chiffres de X jusqu'à cette somme soit comprise entre 0 et 9.

Exemple:
X = 9562
On fait la somme: S = 9+5+6+2 = 22
On refait la somme: S = 2+2 = 4
Donc "le chiffre Chance" de 9562 est 4

On veut écrire un programme qui calcule et affiche ce chiffre Chance pour n'importe quel nombre entier X donné.

Commenter cette solution:

Code:

program nbrchance;

uses wincrt;

function SomChiffres(X: longint):integer;
var
 Som,C: integer;

begin

  Som := 0;

  repeat

    C := X mod 10;

    Som := Som + C;

    X := X div 10;
                   
  until (X = 0);

  SomChiffres := Som;
 
end;

function NChance(X:longint):integer;
var
 NC: integer;
begin

  NC := X;

  repeat

      NC := SomChiffres(NC);

  until (NC in [0..9]);

  NChance := NC;

end;

VAR
  X: longint;

BEGIN

  write('Donner un nombre: ');
  readln(X);

  write('Le chiffre Chance correspondant à ',X,' est: ',NChance(X));

END.

Simple et efficace