nombre parfait 2
Page 1 sur 1
nombre parfait 2
É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.
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.
Sujets similaires
» nombre parfait
» nombre parfait
» nombre consonnes et nombre voyelles
» nombre de consonnes et nombre de voyelles
» nombre premier version 1
» nombre parfait
» nombre consonnes et nombre voyelles
» nombre de consonnes et nombre de voyelles
» nombre premier version 1
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum