Nombres Parfaits

Code:


(************************************************************************************)
(* Algorithme de recherche des nombres parfait (Classique)                          *)
(*----------------------------------------------------------------------------------*)
(* Auteur  : MANI Mohamed Anis                                                      *)
(************************************************************************************)

program nombre_parfaits; uses wincrt;

function Est_Parfait(n : longint):boolean;
var p : boolean;
        s, i, f : longint;
begin
        s:=1; f:= n div 2;
        for i:=2 to f do
                  if (n mod i = 0) then s:=s+i;
        Est_Parfait := (s = n);
end;

var i, n : longint;
begin
        Writeln('Recherche de nombres parfaits classique');
       
        Write('Entrer un entier n positif : '); Readln(n);
        for i:=1 to n do
        begin
                  if Est_Parfait(i) then
                            writeln(i);                                                   
        end;
end.


Code:

1 et 24
2 et 12
3 et 08
4 et 06


Code:

  s := 1;
  i := 2;
  while (i <= sqrt(n)) do
  begin
      if (n mod i=0) then
        s := s + i + (n div i);
      i := i + 1;
  end;

manianis a écrit:Vous auriez dû poster le sujet comme un exercice.

lamia a écrit:

manianis a écrit:Vous auriez dû poster le sujet comme un exercice.

Oui vous avez raison, désolée.
Merci nabiL et manianis pour l'eclaircissement.

Les 4 premiers nombres parfaits sont connus depuis l'antiquité. Depuis, le total est passé à 44 nombres parfaits seulement (au 11/09/2006).
Les douze premiers nombres parfaits sont :

• 6 = 1 + 2 + 3
  
• 28 = 1 + 2 + 4 + 7 + 14
  
• 496 = 1 + 2 + 4 + 8 + 16 + 31 + 62 + 124 + 248
  
• 8 128 = 1 + 2 + 4 + 8 + 16 + 32 + 64 + 127 + 254 + 508 + 1 016 + 2 032 + 4 064
  
• 33 550 336
  
• 8 589 869 056
  
• 137 438 691 328
  
• 2 305 843 008 139 952 128
  
• 2 658 455 991 569 831 744 654 692 615 953 842 176
  
• 191 561 942 608 236 107 294 793 378 084 303 638 130 997 321 548 169 216
  
• 13 164 036 458 569 648 337 239 753 460 458 722 910 223 472 318 386 943 117 783 728 128
  
• 14 474 011 154 664 524 427 946 373 126 085 988 481 573 677 491 474 835 889 066 354 349 131 199 152 128

methodiX a écrit: