قسم الرياضيات و الإعلام الإلي

www.univ-soukahras.dz/ar/dept/mi

المقياس: Algorithmique et structure de données 1

  1. معلومات
  2. الأسئلة
  3. التعليم عن بعد

nombres amis

0 votes

deux entiers naturels strictement positis m et n sont dits nombres amis si chacun des deux nombres est égal à la somme des diviseurs de l'autre (sauf le nombre lui même ).

exemple:

220 et 284 sont deux nombres amis car

284=1+2+4+5+10+11+20+22+44+55+110.

220=1+2+4+71+142.

Ecrire un algorithme qui permet de déterminer si deux nombres donnés sont amis ou pas.

نشر على 20:05, الأحد 3 ديس 2017 By Aida BOUZID
In Algorithmique et structure de données 1


أجوبة (24)




جواب (1)

1 votes

ALGORITHME nbrs_amis;

VAR i,n1,n2,sdiv1,sdiv2:réel;

 

DEBUT

 

ECRIRE ('Introduisez deux nombres:');

LIRE (n1,n2);

 

sdiv1:=0;

sdiv2:=0;

 

POUR i:=1 à (n1 DIV 2) FAIRE 

     SI (n1 MOD i)=0 ALORS sdiv1:=sdiv1+i;

 

POUR i:=1 à (n2 DIV 2) FAIRE 

     SI (n2 MOD i)=0 ALORS sdiv2:=sdiv2+i;

 

          SI (sdiv1=n2) ET (sdiv2=n1) ALORS

ECRIRE ('Les nombres sont des nombres amis.');

          SINON

ECRIRE ('Les nombres ne sont pas des nombres amis.');

 

FIN.

نشر على 21:52, الأحد 3 ديس 2017 by Adlène Beddiar (18 points)
In Algorithmique et structure de données 1



جواب (2)

1 votes

ALGORITHME nbrs_amis;

VAR i,n1,n2,sdiv1,sdiv2:réel;

 

DEBUT

 

ECRIRE ('Introduisez deux nombres:');

LIRE (n1,n2);

 

sdiv1:=0;

sdiv2:=0;

 

POUR i:=1 à (n1 DIV 2) FAIRE 

     SI (n1 MOD i)=0 ALORS sdiv1:=sdiv1+i;

 

POUR i:=1 à (n2 DIV 2) FAIRE 

     SI (n2 MOD i)=0 ALORS sdiv2:=sdiv2+i;

 

          SI (sdiv1=n2) ET (sdiv2=n1) ALORS

ECRIRE ('Les nombres sont des nombres amis.');

          SINON

ECRIRE ('Les nombres ne sont pas des nombres amis.');

 

FIN.

 

نشر على 22:00, الأحد 3 ديس 2017 by seif eddine touati (166 points)
In Algorithmique et structure de données 1



جواب (3)

1 votes

ALGORITHME nbrs_amis;

VAR i,n1,n2,sdiv1,sdiv2:réel;

 

DEBUT

 

ECRIRE ('Introduisez deux nombres:');

LIRE (n1,n2);

 

sdiv1:=0;

sdiv2:=0;

 

POUR i:=1 à (n1 DIV 2) FAIRE 

     SI (n1 MOD i)=0 ALORS sdiv1:=sdiv1+i;

 

POUR i:=1 à (n2 DIV 2) FAIRE 

     SI (n2 MOD i)=0 ALORS sdiv2:=sdiv2+i;

 

          SI (sdiv1=n2) ET (sdiv2=n1) ALORS

ECRIRE ('Les nombres sont des nombres amis.');

          SINON

ECRIRE ('Les nombres ne sont pas des nombres amis.');

 

FIN.

 

نشر على 22:00, الأحد 3 ديس 2017 by seif eddine touati (166 points)
In Algorithmique et structure de données 1



جواب (4)

1 votes

algorithme n-amis; 

var n,m, i, divn,divm : entier ;

debut 

ecrire( ' donnez les 2 nombres' ) ;

lire( n , m ) ;

divn:= 0 ; 

divm:= 0 ; 

pour i := 1 a( n div 2 ) faire 

si ( n mod i = 0) alors 

divn := divn + i ;

pour i := 1  a ( m div 2 ) faire 

si ( m mod i = 0 ) alors 

divm := divm + i ; 

si ( divn= m ) et ( divm = n ) alors

ecrire ( ' les 2 nombres sont des nombres amis ') 

sinon 

ecrire ( ' les 2nombre ne sont pas des nombre amis ' ) ;

fin.

نشر على 08:56, الاثنين 4 ديس 2017 by Amani Haraoubia (47 points)
In Algorithmique et structure de données 1



جواب (5)

1 votes

algorithme amis;

var nb1,nb2,divn1,divn2:reel;

debut

lire(nb1,nb2);

divn1:=0;

divn2:=0;

pour i:=1 a (nb1div 2) faire

si (nb1 mod i :=0) alors

divn1:=divn1+1

pour i:=1 a (nb2 mod 2) faire

si (nb2 mod i :=0) alors

divn2 :=divn2+i;

si (divn1=nb1) et (divn2 = nb2) alors

ecrire('nombre sont des amis')

sinon

ecrire('ne sont pas des amis');

fin.

 

نشر على 10:13, الاثنين 4 ديس 2017 by hibatalllh soualhia (6 points)
In Algorithmique et structure de données 1



جواب (6)

1 votes

algorithme ami;

 var i,N1,N2,SD1,SD2:entier;

 debut

 ecrire('entrez les deux nombre');

 lire(N1,N2);

  SD1:=1;

  SD2:=1;

   pour i:=1 a (N1 div N2) faire 

    si N1 MOD i=0 alors SD1:=SD1+i

   pour i!= 1 a (N1 div N2) faire

    si N2 MOD i=0 alors SD2:=SD2+i

      si (SD1=N2) et (SD2=N1) alors 

     ecrire('les nombres sont des ami')

   sinon

    ecrire('les nombres ne sont pas des ami');

fin.

نشر على 13:37, الاثنين 4 ديس 2017 by halima dridi (35 points)
In Algorithmique et structure de données 1



جواب (7)

-2 votes

ALGORITHME nbrs_amis;

VAR i,n1,n2,sdiv1,sdiv2:réel;

 

DEBUT

 

ECRIRE ('Introduisez deux nombres:');

LIRE (n1,n2);

 

sdiv1:=0;

sdiv2:=0;

 

POUR i:=1 à (n1 DIV 2) FAIRE 

     SI (n1 MOD i)=0 ALORS sdiv1:=sdiv1+i;

 

POUR i:=1 à (n2 DIV 2) FAIRE 

     SI (n2 MOD i)=0 ALORS sdiv2:=sdiv2+i;

 

          SI (sdiv1=n2) ET (sdiv2=n1) ALORS

ECRIRE ('Les nombres sont des nombres amis.');

          SINON

ECRIRE ('Les nombres ne sont pas des nombres amis.');

 

FIN.

نشر على 17:37, الاثنين 4 ديس 2017 by oussama baha eddine farhi (257 points)
In Algorithmique et structure de données 1



جواب (8)

0 votes

ALGORITHME nbrs_amis;

VAR i,n1,n2,sdiv1,sdiv2:réel;

 

DEBUT

 

ECRIRE ('Introduisez deux nombres:');

LIRE (n1,n2);

 

sdiv1:=0;

sdiv2:=0;

 

POUR i:=1 à (n1 DIV 2) FAIRE 

     SI (n1 MOD i)=0 ALORS sdiv1:=sdiv1+i;

 

POUR i:=1 à (n2 DIV 2) FAIRE 

     SI (n2 MOD i)=0 ALORS sdiv2:=sdiv2+i;

 

          SI (sdiv1=n2) ET (sdiv2=n1) ALORS

ECRIRE ('Les nombres sont des nombres amis.');

          SINON

ECRIRE ('Les nombres ne sont pas des nombres amis.');

 

FIN.

 

نشر على 19:43, الاثنين 4 ديس 2017 by sara younsi (127 points)
In Algorithmique et structure de données 1



جواب (9)

0 votes

algorithem nbrs_adebutis

var i, n,m,divn,divm:entier;

bebut

écrire('donnez les deux nombre ');

lire(n,m);

divn:=0;

divm:=0;

pour i:=1 à (n div 2) fair

divn:=divn+i;

pour i:=1 à (m div 2) fair

si (m mod i=0) alors

divm:= divm +i ;

si (divn=m) et (divm=n)alors

écrir('les deus nombre sont des nombres amis ')

sinon

écrire('les deux nombre ne sont pas des nombre amis');

fin.

G:03 N:12

نشر على 18:06, الثلاثاء 5 ديس 2017 by hadjer haou (22 points)
In Algorithmique et structure de données 1



جواب (10)

0 votes

algorithme nombre _amis;

var i, n, m, sdivm, sdivn: entier;

debut

lire( n, m);

sdivn := 0;

SDIVM := 0;

si n >m alors 

pour i := 1 à( n div 2) faire

debut

sdivn := sdivn +i;

sdivm :=sdivm + I ;

fin

sinon

pour i := 1à m faire

debut

sdivn:= sdivn +i ;

sdivm :=sdivm +i;

fin;

finsi;

si( n = sdivm) et (m= sdivn) alors

ecrire ('les deux nombres sont des amis')

sinon

ecrire('les deux nombres ne sont pas des amis');

fin. 

 

نشر على 18:37, الثلاثاء 5 ديس 2017 by Hafsia Tradkhodja (104 points)
In Algorithmique et structure de données 1



جواب (11)

0 votes

algorithme nombre_amis;

var i,n,m,divn,divm:entier;

debut 

ecrire ('donnez les deux nombre');

lire(n,m);

divn:=0;

divm:=0;

pour i:= 1 à ( n div 2) faire

si (n mod i =0) alors 

divn:=divn+i;

 pour  i:= 1 à (  m div 2 ) faire 

si (m  mod i =0) alors

divm:=divm+i;

Si (divn=m ) et ( divm=n) alors 

ecrire('les deux nombre sont des nombre amis')

sinon 

ecrire('les deux nombre sont des nombres n''est pas amis');

fin.

G3 

نشر على 21:06, الثلاثاء 5 ديس 2017 by narimene kechaichia (14 points)
In Algorithmique et structure de données 1



جواب (12)

0 votes

algorithme nbrs_amis;

VAR i,n1,n2,sdiv1,sdiv2:réel;

debut 

ECRIRE ('Introduisez deux nombres:');

LIRE (n1,n2);

 

sdiv1:=0;

sdiv2:=0;

 

POUR i:=1 à (n1 DIV 2) FAIRE 

     SI (n1 MOD i)=0 ALORS sdiv1:=sdiv1+i;

 

POUR i:=1 à (n2 DIV 2) FAIRE 

     SI (n2 MOD i)=0 ALORS sdiv2:=sdiv2+i;

 

          SI (sdiv1=n2) ET (sdiv2=n1) ALORS

ECRIRE ('Les nombres sont des nombres amis.');

          SINON

ECRIRE ('Les nombres ne sont pas des nombres amis.');

 

FIN.

نشر على 18:19, الأربعاء 6 ديس 2017 by نسرين ولهي (106 points)
In Algorithmique et structure de données 1



جواب (13)

0 votes

Algorithme amis;

Var n,m,i,divn,divm:entier;

Debut

ecrire('donnez les 2 nombres');

Lire(n,m);

Divn:=0;

Divm:=0;

Pour i:=1 a(ndiv2) faire

Si (n mod i=0) alors

divn:=divn+i;

Pour i:=1 a(mdiv2) faire

Si ( m mod i=0)alors

divm:=divm+i;

Si ( divn=m)et(divm=n)alors

ecrire('les 2 nombres sont des nombres amis')

Sinon

ecrire('les 2 nombre ne sont pas des nombre amis');

Fin.

نشر على 20:29, الأربعاء 6 ديس 2017 by Intissar Bouguerra (70 points)
In Algorithmique et structure de données 1



جواب (14)

0 votes

surprised

نشر على 21:32, الأربعاء 6 ديس 2017 by Hana harati (24 points)
In Algorithmique et structure de données 1



جواب (15)

0 votes

algorithme nombres_amis;

var nb1, nb2 ,divnb1,divnb2,i:entier;

debut

ecrire('donnez deux nombres');

lire(nb1,nb2);

divnb1:=0;

divnb2:=0;

pour i:=1 à (nb1div2) faire

si( nb1 mod i=0)alors

divnb1:=divnb1+i;

pour i:=1 à nb2div2 faire 

si( nb2 mod i=0)alors

divnb2:=divnb2+i;

si (div nb1=nb2)et(div nb2=nb1)alors

ecrire('les deux nombres sont amis')

sinon

ecrire('les deux nomres ne sont pas des amis ');

fin.

smile

نشر على 11:23, الخميس 7 ديس 2017 by nabila lahmar (7 points)
In Algorithmique et structure de données 1



جواب (16)

0 votes

ALGORITHME nbrs_amis;

VAR i,n1,n2,sdiv1,sdiv2:réel;

 

DEBUT

 

ECRIRE ('Introduisez deux nombres:');

LIRE (n1,n2);

 

sdiv1:=0;

sdiv2:=0;

 

POUR i:=1 à (n1 DIV 2) FAIRE 

     SI (n1 MOD i)=0 ALORS sdiv1:=sdiv1+i;

 

POUR i:=1 à (n2 DIV 2) FAIRE 

     SI (n2 MOD i)=0 ALORS sdiv2:=sdiv2+i;

 

          SI (sdiv1=n2) ET (sdiv2=n1) ALORS

ECRIRE ('Les nombres sont des nombres amis.');

          SINON

ECRIRE ('Les nombres ne sont pas des nombres amis.');

 

FIN.

نشر على 17:59, الجمعة 8 ديس 2017 by nacer eddine ben nia (68 points)
In Algorithmique et structure de données 1



جواب (17)

0 votes

algorithme nb_amis;

Var i,n1,n2,s1,s2:réel;

Debut

écrire ('Introduisez deux nombres:');

Lire(n1,n2);

s1:=0;

s2:=0;

Pour i:=1 à (n1 div 2) faire 

Si (n1 mod i)=0 alors s1:=s1+i;

Pour i:=1 à (n2 div 2) faire 

Si (n2 mod i)=0 alors s2:=s2+i;

Si (s1=n2) ET (s2=n1) ALORS

écrire ('Les deux nombres sont des nombres amis.');

sinon

écrire ('Les deux nombres ne sont pas des nombres amis.');

Fin.

G3 N30

نشر على 20:47, الأحد 10 ديس 2017 by Haithem Sofiene Maoua (21 points)
In Algorithmique et structure de données 1



جواب (18)

0 votes

algorithme nb_amis;

Var i,n1,n2,s1,s2:réel;

Debut

écrire (donnez deux nombres:');

Lire(n1,n2);

s1:=0;

s2:=0;

Pour i:=1 à (n1 div 2) faire 

Si (n1 mod i)=0 alors s1:=s1+i;

Pour i:=1 à (n2 div 2) faire 

Si (n2 mod i)=0 alors s2:=s2+i;

Si (s1=n2) ET (s2=n1) ALORS

écrire ('Les deux nombres sont des nombres amis.');

sinon

écrire ('Les deux nombres ne sont pas des nombres amis.');

Fin.

G= 03

نشر على 17:23, الاثنين 11 ديس 2017 by Khaoula Mokrane (50 points)
In Algorithmique et structure de données 1



جواب (19)

0 votes

 

ALGORITHME nbrs_amis;

VAR i,n1,n2,sdiv1,sdiv2:réel;

 

DEBUT

 

ECRIRE ('Introduisez deux nombres:');

LIRE (n1,n2);

 

sdiv1:=0;

sdiv2:=0;

 

POUR i:=1 à (n1 DIV 2) FAIRE 

     SI (n1 MOD i)=0 ALORS sdiv1:=sdiv1+i;

 

POUR i:=1 à (n2 DIV 2) FAIRE 

     SI (n2 MOD i)=0 ALORS sdiv2:=sdiv2+i;

 

          SI (sdiv1=n2) ET (sdiv2=n1) ALORS

ECRIRE ('Les nombres sont des nombres amis.');

          SINON

ECRIRE ('Les nombres ne sont pas des nombres amis.');

 

FIN.                               g:03

 

نشر على 20:59, الاثنين 11 ديس 2017 by amar zaoui (10 points)
In Algorithmique et structure de données 1



جواب (20)

0 votes

Algorithme nb_amis;

var i,n,m,div1,div2:reel;

debut

ecrire('donnez deux nombre');

lire(n,m);

div1=0;

div2=0;

pour i:=1a (n div 2) faire

si (n mod i)=0 alors 

div1:=div1+i;

pour i:= 1 a (m div 2) faire

si (m mod i)=0 alors

div2:= div2+i

si ((div1=m) et (div2=n)) alors

ecrire('les nombres sont des nombres amis')

sinon

ecrire('les nombres ne sont pas nombres amis');

fin.

G4

نشر على 16:55, الثلاثاء 12 ديس 2017 by ساسية بولعراس (20 points)
In Algorithmique et structure de données 1



جواب (21)

0 votes

algorithme nombre _amis;

var i, n, m, sdivm, sdivn: entier;

debut

lire( n, m);

sdivn := 0;

SDIVM := 0;

si n >m alors 

pour i := 1 à( n div 2) faire

debut

sdivn := sdivn +i;

sdivm :=sdivm + I ;

fin

sinon

pour i := 1à m faire

debut

sdivn:= sdivn +i ;

sdivm :=sdivm +i;

fin;

finsi;

si( n = sdivm) et (m= sdivn) alors

ecrire ('les deux nombres sont des amis')

sinon

ecrire('les deux nombres ne sont pas des amis');

fin. 

نشر على 18:40, الخميس 14 ديس 2017 by مراد صوايفية (12 points)
In Algorithmique et structure de données 1



جواب (22)

0 votes

ALGORITHME nbrs_amis;

VAR i,n1,n2,sdiv1,sdiv2:réel;

 

DEBUT

 

ECRIRE ('Introduisez deux nombres:');

LIRE (n1,n2);

 

sdiv1:=0;

sdiv2:=0;

 

POUR i:=1 à (n1 DIV 2) FAIRE 

     SI (n1 MOD i)=0 ALORS sdiv1:=sdiv1+i;

 

POUR i:=1 à (n2 DIV 2) FAIRE 

     SI (n2 MOD i)=0 ALORS sdiv2:=sdiv2+i;

 

          SI (sdiv1=n2) ET (sdiv2=n1) ALORS

ECRIRE ('Les nombres sont des nombres amis.');

          SINON

ECRIRE ('Les nombres ne sont pas des nombres amis.');

 

FIN.

نشر على 11:37, الثلاثاء 19 ديس 2017 by Cadi Mohamed riadh (14 points)
In Algorithmique et structure de données 1



جواب (23)

0 votes

surprised

نشر على 15:56, الأحد 24 ديس 2017 by chaima Bouchareb (77 points)
In Algorithmique et structure de données 1



جواب (24)

0 votes

Algorithme Nbr-ms

Var i, n1,n2,sdiv1,sdiv2: real; 

Debut

Ecrire ('l'introduisez deux nombres :');

Lire( n1,n2) sdiv1:=0;

Sdiv2:=0;

Pour i:=1 à ( n1 div 2) faire

Si (n1 mod i ) =0

Ecrire ( les nombre sont des nombres ms');

Fin. 

نشر على 21:19, الاثنين 25 ديس 2017 by laabidi Benouareth (112 points)
In Algorithmique et structure de données 1



هل لديك جواب ?