Ecrire un algorithme affichant tous les nombres parfaits inférieurs à 10000. Sachant qu’un nombre entier positif (N) est parfait s'il est égal à la somme de ses diviseurs (<N). On écrira une fonction booléenne, appelée PARFAIT, pour vérifier si le nombre est parfait ou non parfait.
Exemples : 6 — qui est égal à 1 + 2 + 3 —
et 28 — qui est égal à 1 + 2 + 4 + 7 + 14 — sont des nombres parfaits.
Algorithme NombreParfait ;
Var A :entier ;
Fonction Parfait(X :entier) :booleen ;
Var I,S :entier ;
Debut
S ← 0 ;
Pour I ← 1 à X div 2
Faire Si X mod I = 0 Alors S ← S+I Fsi ;
Fait;
Si S=X Alors Parfait ← Vrai Sinon Parfait ← Faux Fsi; Fin ;
Debut
Pour A← 1 à 10000
Faire Si Parfait(A) Alors Ecrire(A,’ est parfait’) Fsi ;
Fait ;
Fin .
Ajouter un commentaire
Veuillez vous connecter pour ajouter un commentaire.
Pas encore de commentaires.