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