nombre parfait 2

Aller en bas

nombre parfait 2

Message  Admin le Ven 11 Mar - 13:21

ÉNONCÉ

2)Ecrire un programme qui affiche la liste de tous les nombres parfaits inférieur à 200.

PASCAL


program nb_parfaits;
uses wincrt;
var i,j,somme:integer;
begin

for i:=1 to 200 do
begin
somme:=0;
for j:=1 to (i div 2) do
begin
if i mod j=0 then somme:=somme+j;
end;
if somme=i then writeln(i);

end;
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