Accueil > Algorithmes > Saisir un entier strictly négatif
Exige la saisie d'un nombre entier strictement inférieur à 0.
Procédure saisie(@ x : entier) DÉBUT Répéter Ecrire("Saisir x") Lire(x) Jusqu'à x < 0 FIN