Le Nombre Amie | Langage Pascal

Ecrire un Programme Pascal qui Déterminer si 02 nombres sont des Nombres Amies ou pas.

Principe : En arithmétique, on dit que deux nombres sont dits amicaux s'ils sont distincts et si chacun des deux nombres est égal à la somme des diviseurs stricts de l'autre.

Exemple : Le plus petit couple de nombres amicaux est (220, 284).Ainsi

L’ensemble des diviseurs propres de 220 est 284 : DIV(220) = {1, 2, 4, 5, 10, 11, 20, 22, 44, 55, 110} et la somme de ces nombres est 284.
L’ensemble des diviseurs propres de 284 est 220 : DIV(284) = {1, 2, 4, 71, 142} et la somme de ces nombres est 220.

CORRECTION

Program Nombres_amis;
uses crt;
var cpt1,cpt2,nbr1,nbr2,i: integer;
Begin
WriteLn('entrer votre premier nombre à tester');
readln(a);

WriteLn('entrer deuxième deuxième nombre à tester');
readLn(b);

cpt1:=0;

     cpt2:=0;
for i:=1 to nbr1 div 2 do
     begin
        if ( nbr1 mod i=0) then
        cpt1:=cpt1+i;
      end;
for i:=1 to nbr2 div 2 do
     begin
        if (nbr2 mod i=0) then
        cpt2:=cpt2+i;
      end;
   if ((cpt1= nbr2) and (cpt2=nbr1)) then
          WriteLn('les deux nombres entrés sont des nombres amis')
   else

WriteLn('les deux nombres ne sont pas des nombres amis');
End.

Ajouter un commentaire

Nom

E-mail

Site Internet

Anti-spam