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