Cette fonction calcule la somme des chiffres d'un nombre entier.
Fonction sommechiffre(N:entier):entier début S ← 0 Répéter S ← S + N MOD 10 N ← N DIV 10 Jusqu'à N = 0 Retourner(S) fin