18 lines
391 B
Text
18 lines
391 B
Text
Algorithme : Somme des chiffres d'un entier N donné
|
|
|
|
Début
|
|
|
|
Fonction SommeChiffres(N : int, somme : int)
|
|
chiffre : Entier <- N[0]
|
|
Si chiffre = NIL
|
|
Retourner(somme)
|
|
Sinon
|
|
somme = somme + chiffre
|
|
Dépiler(N)
|
|
Retourner(SommeChiffres(N, somme))
|
|
FinSi
|
|
FinFonction
|
|
|
|
Afficher(SommeChiffres(123, 0))
|
|
|
|
Fin
|