Exercice

Bonjour,
On se propose d’écrire un programme Pascal permettant de déterminer et d’afficher un code à partir d’un entier N strictement positif et supérieur à 100, selon le principe suivant :
1. Calculer la somme S des chiffres qui compose le nombre N
2. Recommencer le calcul de la somme des chiffres de la somme obtenue s tant que celle-ci n’est pas comprise entre 1 et 9.
3. Le code sera le nombre formé par N auquel on place à sa gauche la dernière somme obtenue.

Exemple
Pour N= 9867 le programme affichera ; le code est 39867
En effet :
Pour N= 9867
La 1ère somme S vaut 30 (car 9 + 8 + 6 + 7 = 30)
La 2ème somme S vaut 3 (car 3 + 0 = 30)
Etant donné que la dernière somme S, qui vaut 3, est comprise entre 1 et 9 le code sera 39867