1. Accueil
  2. EXERCICES
  3. Langage Pascal_Exercices
  4. Le Nombre Amie | Langage Pascal

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.

★ ★ ★ ★ ★
1 vote. Moyenne 5 sur 5.

Ajouter un commentaire

Anti-spam