Algorithme number_of_digits

    var n, compteur: entier

  debut

    compteur <- 0
    ecrire("Donner un nombre entier : ")
    lire(n)
    si (n == 0) alors
        compteur <- 1
    sinon
        si (n<0) alors
            n <- -n
        finsi
        tantque (n > 0) faire
            n <- n div 10
            compteur <- compteur + 1
        fintantque
    finsi
    ecrire("Le nombre de chiffres est : ", compteur)

  fin
              

  Donner un nombre entier : 2010
  Le nombre de chiffres est : 4

  --------------
  [Fin de programme]