Calcule la somme des chiffres d'un entier positif.
Fonction Som_chiffres ( x: entier): entier Début S←0 Répéter S ← S + x mod 10 x ← x div 10 Jusqu'à (x=0) Retourner (S) Fin