# entierdecimale

# Programme entierdecimale-src
(Declarer NombreUtilisateur De_type "nombre")
(Declarer ControleNombreUtilisateur De_type "nombre")
(Declarer AjoutNombreUtilisateur De_type "nombre")
(Declarer TypeDeNombre De_type "nombre")

(Affecter_a NombreUtilisateur (Demander_un_nombre))
(Affecter_a ControleNombreUtilisateur (+ 0))
(Affecter_a AjoutNombreUtilisateur (+ NombreUtilisateur 1))
(Affecter_a TypeDeNombre (+ 0))

(Si (=/ TypeDeNombre 1)
Alors

       (Tant_que (=/ ControleNombreUtilisateur NombreUtilisateur)
       Faire
       
                (Si (< ControleNombreUtilisateur AjoutNombreUtilisateur)
                Alors
                (Affecter_a ControleNombreUtilisateur (+ ControleNombreUtilisateur 1))
                
                (Si (> ControleNombreUtilisateur AjoutNombreUtilisateur)
                Alors
                (Afficher "Nombre Composé"))              
                )
       )
)

(Afficher "Nombre Entier")