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

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

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

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

Nombre parfait

0 votes

Ecrire un algorithme qui détermine si un nombre est parfait ou non.

Un nombre est dit parfait s'il est égal à la somme se ses diviseurs sauf lui même.

Exemple: 6 est un nombre parfait car : 6=1+2+3.

Modifier l'algorithme pour afficher tous les nombres parfait entre 1 et 10 000.

نشر على 11:28, الخميس 16 نوف 2017 By Aida BOUZID
In Algorithmique et structure de données 1


أجوبة (38)




جواب (1)

0 votes

Algorithme  parfait ; 

Var  n , i , p : entier ; 

Debut 

Lire(n) ; 

P:=1; 

Pour i:=2  á n-1       fair  

   Si ( n mod i =0 )    alors  

     P:=p+1 ; 

   Fsi 

Fpour 

Si n=p   alors 

Ecrire(n , ' nombre parfait ' ) 

Sinon 

Ecrire(n , ' nombre dit parfait ' ) 

Fsi 

 

 

Fin . 

 

نشر على 16:56, الخميس 16 نوف 2017 by Fateh HESSAINIA (61 points)
In Algorithmique et structure de données 1



جواب (2)

-2 votes

algorithme nombreparfait;

var n,i,p:entier;

debut

lire(n);

p:=1;

pour i:=2 à n-1 faire

 si (n mod i=0) alors

p:=p+1

fsi;

fpour;

si n=p alors

ecrire(n,'est un nombre parfait')

sinon

  ecrire(n,'n a pas un nombre parfait')

fsi;

fin.

 

نشر على 17:56, الجمعة 17 نوف 2017 by ريان ريدان (227 points)
In Algorithmique et structure de données 1



جواب (3)

0 votes

Algorithme parfait ;

var N,p,i:entier;

debut 

ecrire ('donnez un nombre');

lire(N);

p:=1;

pour i:=2 à N-1 fair 

    si ( N mod i =0) alors 

     p:=p+1;

fpour;

si N=p alors 

ecrire ('le nombre est parfait')

sinon

ecrire('le nombre n''est pas parfait');

fin.

G3

نشر على 20:20, الجمعة 17 نوف 2017 by نريمان قشايشية (14 points)
In Algorithmique et structure de données 1



جواب (4)

0 votes

Algorithme  parfait ; 

Var  n , i , p,max : entier ; 

Debut 

Lire(n) ; 

P:=1; 

Max:=n div 2;

Pour i:=2  á max  faire

Si ( n mod i =0 )    alors  

 P:=p+i ; 

   Fsi ;

Fpour ;

Si n=p   alors 

Ecrire(n , ' nombre parfait ' ) 

Sinon 

Ecrire(n , ' nombre Est unparfait ' ) 

Fsi 

Fin . 

 

نشر على 21:05, الجمعة 17 نوف 2017 by عبد الرحمان برينيس (136 points)
In Algorithmique et structure de données 1



جواب (5)

2 votes

Algorithme  parfait ; 

Var  n , i , p,max : entier ; 

Debut 

Pour n:2 a 10000 faire 

P:=1; 

Max:=n div 2;

Pour i:=2  á max  faire

Si ( n mod i =0 )    alors  

 P:=p+i ; 

   Fsi ;

Fpour ;

Si n=p   alors 

Ecrire(n , ' nombre parfait ' ) 

Fsi ;

Fpour;

Fin . 

نشر على 21:09, الجمعة 17 نوف 2017 by عبد الرحمان برينيس (136 points)
In Algorithmique et structure de données 1



جواب (6)

-2 votes

algorithme parfait;

var n,i,p m;entier;

debut

pour n:=2 à m faire

si( n mod i=0) alors

p:=p+i;

  fsi;

fpour;

si n=p alors

ecrire(n,'nombre parfait')

fsi;

fpour;

fin.

نشر على 13:58, السبت 18 نوف 2017 by Haifa Benlassowd (76 points)
In Algorithmique et structure de données 1



جواب (7)

-3 votes

wink

نشر على 14:38, السبت 18 نوف 2017 by Haifa Benlassowd (76 points)
In Algorithmique et structure de données 1



جواب (8)

0 votes

Algorithme  parfait ; 

Var  n , i , p,m : entier ; 

Debut 

Lire(n) ; 

P:=1; 

Max:=n div 2;

Pour i:=2  á m  faire

Si ( n mod i =0 )    alors  

 P:=p+i ; 

   Fsi ;

Fpour ;

Si n=p   alors 

Ecrire(n , ' nombre parfait ' ) 

Sinon 

Ecrire(n , ' nombre Est unparfait ' ) 

Fsi 

Fin . 

 

نشر على 16:10, السبت 18 نوف 2017 by وسيم توايتية (12 points)
In Algorithmique et structure de données 1



جواب (9)

0 votes

Algorithme  parfait ;

Var nb,p,i:entier ;

Début

Écrire ('donnez un nombre');

Lire(NB);

P:=1;

Pour i:=2 à n-1 faire

Si (NB mod i =0)alors

P:= p+1;

Si(NB=p) alors

Écrire ('le nombre est parfait')

Sinon

Écrire ('le nombre n'' est pas parfait');

Fin.

 

 

نشر على 16:19, السبت 18 نوف 2017 by عائشة عزاق (14 points)
In Algorithmique et structure de données 1



جواب (10)

0 votes

program parfait;

var nb,p,ip:integer;

begin

writeln('tapez un nombre');

readln(nb);

p:=1;

for i:=2 to n-1 do

  if (nb mod i=0)then

p:=p+1;

  if(nb=p) then

writeln('le nombre est parfait');

else

 writeln('le nombre n a pas parfait')

end.

نشر على 17:16, السبت 18 نوف 2017 by ريان ريدان (227 points)
In Algorithmique et structure de données 1



جواب (11)

0 votes

program parfait;

var nb,p,ip:integer;

begin

writeln('tapez un nombre');

readln(nb);

p:=1;

for i:=2 to n-1 do

  if (nb mod i=0)then

p:=p+1;

  if(nb=p) then

writeln('le nombre est parfait');

else

 writeln('le nombre n a pas parfait')

end.

نشر على 17:16, السبت 18 نوف 2017 by ريان ريدان (227 points)
In Algorithmique et structure de données 1



جواب (12)

0 votes

program parfait;

var nb,p,ip:integer;

begin

writeln('tapez un nombre');

readln(nb);

p:=1;

for i:=2 to n-1 do

  if (nb mod i=0)then

p:=p+1;

  if(nb=p) then

writeln('le nombre est parfait');

else

 writeln('le nombre n a pas parfait')

end.

نشر على 17:16, السبت 18 نوف 2017 by ريان ريدان (227 points)
In Algorithmique et structure de données 1



جواب (13)

0 votes

Algorithme parfait ;

Var n,i,p: entier ;

Début

Lire i:= a n-1 fait

Si (n mod i=0) alors 

P:=p+1;

Fsi ;

Fpour;

Si n=p alors 

Écrire('nombre parfait');

Si nom

Écrire('nombre dit parfait ');

Fsi ;

Fin.

G:03  N: 23

نشر على 18:27, السبت 18 نوف 2017 by MAROUA GHODBANE (54 points)
In Algorithmique et structure de données 1



جواب (14)

0 votes

Algorithme  parfait ; 

Var  n , cpt, p : entier ; 

Debut 

Lire(n) ; 

P:=1; 

Pour cpt:=2  á n-1       fair  

   Si ( n mod cpt =0 )    alors  

     P:=p+1 ; 

   Fsi 

Fpour 

Si n=p   alors 

Ecrire(n , ' nombre parfait ' ) 

Sinon 

Ecrire(n , ' nombre no parfait ' ) 

Fsi 

Fin. 

نشر على 18:49, السبت 18 نوف 2017 by oussama baha eddine farhi (257 points)
In Algorithmique et structure de données 1



جواب (15)

0 votes

Algorithme  parfait ; 

Var  n , cpt, p : entier ; 

Debut 

Lire(n) ; 

P:=1; 

Pour cpt:=2  á n-1       fair  

   Si ( n mod cpt =0 )    alors  

     P:=p+1 ; 

   Fsi 

Fpour 

Si n=p   alors 

Ecrire(n , ' nombre parfait ' ) 

Sinon 

Ecrire(n , ' nombre no parfait ' ) 

Fsi 

Fin. 

 

   

نشر على 18:50, السبت 18 نوف 2017 by oussama baha eddine farhi (257 points)
In Algorithmique et structure de données 1



جواب (16)

0 votes

Algorithme  parfait;

var n,i,p,max:entier;

debut

ecrire ('donnez un nombre');

lire(n);

p:=1;

max:=n div 2;

pour i:=2 à max faire

si ( n mod i=0)alors

p:=p+1;

si n=p alors

ecrire(n, 'nombre  parfait')

sinon

ecrire(n,'nombre unparfait');

fin.

G:04

نشر على 20:27, الثلاثاء 21 نوف 2017 by chourouk bouakaz (7 points)
In Algorithmique et structure de données 1



جواب (17)

0 votes

Algorithme  parfait;

var n,i,p,max entier;

debut

pourn:=2 à 10000 faire

p:=1;

max:=n div 2;

pour i:=2 à max faire

debut

si (n mod i =0) alors 

p:=p+1;

si n=p alors 

ecrire(n,'nombre parfait');

fin;

fin.

G:04

نشر على 20:37, الثلاثاء 21 نوف 2017 by chourouk bouakaz (7 points)
In Algorithmique et structure de données 1



جواب (18)

0 votes

Algorithme nb_parfait;

var n,i,p:entier;

debut

lire(n);

p:=1;

pour i:=2 à n-1 faire

debut

 si (n mod i=0) alors

p:=p+1

fin;

si n=p alors

ecrire(n,'est un nombre parfait')

sinon

  ecrire(n,'n a pas un nombre parfait')

fin.

G3 N30

نشر على 16:34, الأربعاء 22 نوف 2017 by هيثم سفيان معاوة (21 points)
In Algorithmique et structure de données 1



جواب (19)

0 votes

Algorithme le_nombre_parfait;

Var n,i,A:entier;

Debut

Ecrire('donnez un nombre entier');

Lire(n);

A:=1;

i:=2;

Tant que i<(n-1) faire

Si (n mod i=0) alors

A:=A+i;

Fsi  

i:=i+1;

Ftq

Si n=A alors

Ecrire(n,'est un nombre parfait')

Sinon

Ecrire(n,'ne pas un nombre parfait');

Fsi

.fin

نشر على 18:28, الأربعاء 22 نوف 2017 by amina monebbah (61 points)
In Algorithmique et structure de données 1



جواب (20)

0 votes

 

Algorithme parfait ;

var N,p,i:entier;

debut 

ecrire ('donnez un nombre');

lire(N);

p:=1;

pour i:=2 à N-1 fair 

    si ( N mod i =0) alors 

     p:=p+1;

fpour;

si N=p alors 

ecrire ('le nombre est parfait')

sinon

ecrire('le nombre n''est pas parfait');

fin.

G3

نشر على 23:31, الجمعة 24 نوف 2017 by Khaoula Mokrane (50 points)
In Algorithmique et structure de données 1



جواب (21)

0 votes

algorithme parfait;

var i,nb;p:entier;

debut

ecrire(' donnez un nombre ');

lire( nb);

p:=1

pour i:=2 a n-1 faire

si ( nb mod i =0) alors

p:= p+1;

fpour;

si nb=p alors 

ecrire (' le nombre est parfait);

sinon 

ecrire ( ' le nombre n''est pas parfiat');

fin.

نشر على 11:38, السبت 25 نوف 2017 by بثينة شرايطية (50 points)
In Algorithmique et structure de données 1



جواب (22)

0 votes

algorithme nombre parfait ;

var nb, i, p:entier ;

debut 

ecrire ( ' donnez un nombre ' ) ;

lire( nb) ;

p := 0 ;

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

si( n mod i = 0 ) alor 

p:= p + i 

si p = n alors 

ecrire ( ' nombre parfait ' ) ; 

sinon

ecrire ( ' nombre n''est pas parfait ' ) ;

fin.

 

 

 

نشر على 20:30, الاثنين 27 نوف 2017 by Amani Haraoubia (47 points)
In Algorithmique et structure de données 1



جواب (23)

0 votes

algorithme parfait;

var n,p;i:entier;

debut

ecrire('donnez un nombre');

lire(n);

p:=0; 

pour i:=1à(n div2) fair

si(n mod i=0)alors

p:=p+i;

si p:=n alors

ecrire('nombre parfait')

sinon

ecrire('nombre n''est pas prfait);

fin.

group:3.

 

نشر على 10:54, الثلاثاء 28 نوف 2017 by MAROUA BEN AOUDI (8 points)
In Algorithmique et structure de données 1



جواب (24)

0 votes

algorithme parfait;

var nb,i,p:entier;

debut 

ecrire(' donner un nombre' );

lire (nb);

p:=0;

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

si (nb mod i =0) alors 

p:=p+i;

si p:=n alors 

ecrire('le nombre est parfait ')

sinon

ecrire('le nombre n''est pas parfait');

fin.

g3

نشر على 14:43, الثلاثاء 28 نوف 2017 by nabila lahmar (7 points)
In Algorithmique et structure de données 1



جواب (25)

0 votes

Algorithme   parfait;

var  nb,i,p:entier;

Debut

ecrire ('donnez un nombre');

lire(nb);

p:=0;

pour i:=1à(nb div2) faire

si (nb mod i=0) alors

p:=p+i;

si p:=n alors

ecrire('le nombre est parfait')

sinon

ecrire('le nombre n''est pas parfait');

fin.

G:04

 

نشر على 19:15, الثلاثاء 28 نوف 2017 by وفاء زروقي (8 points)
In Algorithmique et structure de données 1



جواب (26)

0 votes

Algorithme   parfait;

var  nb,i,p:entier;

Debut

ecrire ('donnez un nombre');

lire(nb);

p:=0;

pour i:=1à(nb div2) faire

si (nb mod i=0) alors

p:=p+i;

si p:=n alors

ecrire('le nombre est parfait')

sinon

ecrire('le nombre n''est pas parfait');

fin.

G:04

 

نشر على 19:15, الثلاثاء 28 نوف 2017 by وفاء زروقي (8 points)
In Algorithmique et structure de données 1



جواب (27)

0 votes

algorithme   parfait;

var n,i,p,max:entier;

debut

ecrire ('donnez un nombre');

lire(n);

p:=1;

max:=n div 2;

pour i:=2 à max fair

si ( n mod i=0)alors

p:=p+1;

si n=p alors

ecrire(n,'nombre parfait')

sinon

ecrire(n,'nombre unparfit');

fin.

G:04

نشر على 19:26, الثلاثاء 28 نوف 2017 by mariem bouguessir (3 points)
In Algorithmique et structure de données 1



جواب (28)

0 votes

Algorithme  parfait ; 

Var  n , i , p : entier ; 

Debut 

Lire(n) ; 

P:=1; 

Pour i:=2  á n-1       fair  

   Si ( n mod i =0 )    alors  

     P:=p+1 ; 

   Fsi 

Fpour 

Si n=p   alors 

Ecrire(n , ' nombre parfait ' ) 

Sinon 

Ecrire(n , ' nombre dit parfait ' ) 

Fsi 

نشر على 19:43, الخميس 30 نوف 2017 by sara younsi (127 points)
In Algorithmique et structure de données 1



جواب (29)

0 votes

Algorithme  parfait ; 

Var  n , i , p : entier ; 

Debut 

Lire(n) ; 

P:=1; 

Pour i:=2  á n-1       fair  

   Si ( n mod i =0 )    alors  

     P:=p+1 ; 

   Fsi 

Fpour 

Si n=p   alors 

Ecrire(n , ' nombre parfait ' ) 

Sinon 

Ecrire(n , ' nombre dit parfait ' ) 

Fsi 

نشر على 19:44, الخميس 30 نوف 2017 by sara younsi (127 points)
In Algorithmique et structure de données 1



جواب (30)

0 votes

algorithme   parfait;

var n,i,p,max:entier;

debut

ecrire ('donnez un nombre');

lire(n);

p:=1;

max:=n div 2;

pour i:=2 à max fair

si ( n mod i=0)alors

p:=p+1;

si n=p alors

ecrire(n,'nombre parfait')

sinon

ecrire(n,'nombre unparfit');

fin.

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



جواب (31)

0 votes

Algorithme  parfait ; 

Var  n , i , p : entier ; 

Debut 

Lire(n) ; 

P:=1; 

Pour i:=2  á n-1       fair  

   Si ( n mod i =0 )    alors  

     P:=p+1 ; 

   Fsi 

Fpour 

Si n=p   alors 

Ecrire(n , ' nombre parfait ' ) 

Sinon 

Ecrire(n , ' nombre dit parfait ' ) 

Fsi 

Fin . 

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



جواب (32)

1 votes

Algorithme  parfait ; 

Var  n , cpt, p : entier ; 

Debut 

Lire(n) ; 

P:=1; 

Pour cpt:=2  á n-1       fair  

   Si ( n mod cpt =0 )    alors  

     P:=p+1 ; 

   Fsi 

Fpour 

Si n=p   alors 

Ecrire(n , ' nombre parfait ' ) 

Sinon 

Ecrire(n , ' nombre no parfait ' ) 

Fsi 

Fin.                                                            g:3

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



جواب (33)

0 votes

algorithme parfait 

var n,p,i:entier;

debut

écrire(' donnez un nombre ');

lire (n);

p:=1;

pour i:=i à n-1 fair

     si (n mod i=0) alore 

      p:=p+1;

  si n=p alors 

écrire ('le nombre est parfait') 

sinon

écrire ('le nombre n''est pas parfait ');

fin .

G:03

نشر على 20:01, الأربعاء 13 ديس 2017 by hadjer haou (22 points)
In Algorithmique et structure de données 1



جواب (34)

0 votes

Algorithme  parfait ; 

Var  n , cpt, p : entier ; 

Debut 

Lire(n) ; 

P:=1; 

Pour cpt:=2  á n-1       fair  

   Si ( n mod cpt =0 )    alors  

     P:=p+1 ; 

   Fsi 

Fpour 

Si n=p   alors 

Ecrire(n , ' nombre parfait ' ) 

Sinon 

Ecrire(n , ' nombre no parfait ' ) 

Fsi 

Fin.                                                            g:3

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



جواب (35)

0 votes

Algorithme  parfait ; 

Var  n , cpt, p : entier ; 

Debut 

Lire(n) ; 

P:=1; 

Pour cpt:=2  á n-1       fair  

   Si ( n mod cpt =0 )    alors  

     P:=p+1 ; 

   Fsi 

Fpour 

Si n=p   alors 

Ecrire(n , ' nombre parfait ' ) 

Sinon 

Ecrire(n , ' nombre no parfait ' ) 

Fsi 

Fin. 

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



جواب (36)

0 votes

Algorithme parfait ;

Var i,n,p:entier ;

Début

Lire(n);

P:=1;

Pour i:=2 à n-1 faire

Si (n mod i=0) alors

P:=p+1;

Finsi;

Fpour ;

Si n:=p alors

Écrire('nombre parfait',n)

Sinon

Écrire('nombre dit parfait',n);

Fsi ;

Fin.

G7

نشر على 21:05, الخميس 21 ديس 2017 by أميرة زمال (84 points)
In Algorithmique et structure de données 1



جواب (37)

0 votes

algorithem parfait;

var n,p,i:entier;

début

écrire('donnez n');

lire(n);

p:=1;

si (n mod 2)=0 alors

m:=n div 2;

pour i:=2 à m faire

p:=p+i;

fin pour;

écrire('le nombre est',parfait)

si nom

écrire('le nombre ne pas parfait');

fin si;

fin.

نشر على 12:37, السبت 23 ديس 2017 by شيماء حيدري (32 points)
In Algorithmique et structure de données 1



جواب (38)

0 votes

algorithme parfait ;

VAR n,p,i:entier;

Debut

lire(n);

p:=1;

Pour i:=2a n-1 faire 

si(n MOD i =0) alors 

p:=p+1;

fin;

si n=p alors 

Ecrire(`le nombre est parfait `)

sinon 

Ecrire(`le nombre n`est pas parfait `);

fin;

fin.

نشر على 12:58, السبت 23 ديس 2017 by roumaissa guellati (5 points)
In Algorithmique et structure de données 1



هل لديك جواب ?