nombre parfait

Aller en bas

nombre parfait

Message  Admin le Ven 11 Mar - 13:20

ÉNONCÉ

Un nombre parfait est un entier positif caractérisé par le fait qu’il est égal à la somme de tous ses diviseurs excepté lui-même. Le premier nombre parfait est 6 qui est égale à 1 + 2 + 3 qui sont les diviseurs de 6.
Ecrire une analyse et en déduire un algorithme qui lit un entier et détermine s’il est parfait ou non.

PASCAL

program parfait;
uses wincrt;
var
i,n,somme:integer;
begin
writeln('donner un entier');
readln(n);
somme:=0 ;
for i:=1 to n div 2 do
begin
if n mod i=0 then somme:=somme+i;
end;
if n=somme then write(n,' est un entier parfait')
else write(n,' n"est pas un entier parfait');
end.


Admin
Admin

Messages : 137
Date d'inscription : 29/12/2010

Voir le profil de l'utilisateur http://aidescolaire.yoo7.com

Revenir en haut Aller en bas

Revenir en haut


 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum