efrei/algorithmique/recursivite/somme-chiffres.algo

19 lines
391 B
Text
Raw Normal View History

2021-09-17 13:10:07 +02:00
Algorithme : Somme des chiffres d'un entier N donné
Début
2021-09-17 13:32:48 +02:00
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))
2021-09-17 13:10:07 +02:00
Fin