Department of Mathematics and Computer Science

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

Module: Algorithmique et structure de données 1

  1. Information
  2. Questions

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.

Asked on 11:28, Thursday 16 Nov 2017 By Aida BOUZID
In Algorithmique et structure de données 1


answers (38)




Answer (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 . 

 

Answered on 16:56, Thursday 16 Nov 2017 by Fateh HESSAINIA (61 points)
In Algorithmique et structure de données 1



Answer (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.

 

Answered on 17:56, Friday 17 Nov 2017 by ريان ريدان (228 points)
In Algorithmique et structure de données 1



Answer (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

Answered on 20:20, Friday 17 Nov 2017 by narimene kechaichia (14 points)
In Algorithmique et structure de données 1



Answer (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 . 

 

Answered on 21:05, Friday 17 Nov 2017 by عبد الرحمان برينيس (136 points)
In Algorithmique et structure de données 1



Answer (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 . 

Answered on 21:09, Friday 17 Nov 2017 by عبد الرحمان برينيس (136 points)
In Algorithmique et structure de données 1



Answer (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.

Answered on 13:58, Saturday 18 Nov 2017 by Haifa Benlassowd (76 points)
In Algorithmique et structure de données 1



Answer (7)

-3 votes

wink

Answered on 14:38, Saturday 18 Nov 2017 by Haifa Benlassowd (76 points)
In Algorithmique et structure de données 1



Answer (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 . 

 

Answered on 16:10, Saturday 18 Nov 2017 by touaitia ouassim (12 points)
In Algorithmique et structure de données 1



Answer (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.

 

 

Answered on 16:19, Saturday 18 Nov 2017 by Aicha Azzag (14 points)
In Algorithmique et structure de données 1



Answer (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.

Answered on 17:16, Saturday 18 Nov 2017 by ريان ريدان (228 points)
In Algorithmique et structure de données 1



Answer (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.

Answered on 17:16, Saturday 18 Nov 2017 by ريان ريدان (228 points)
In Algorithmique et structure de données 1



Answer (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.

Answered on 17:16, Saturday 18 Nov 2017 by ريان ريدان (228 points)
In Algorithmique et structure de données 1



Answer (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

Answered on 18:27, Saturday 18 Nov 2017 by MAROUA GHODBANE (54 points)
In Algorithmique et structure de données 1



Answer (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. 

Answered on 18:49, Saturday 18 Nov 2017 by oussama baha eddine farhi (257 points)
In Algorithmique et structure de données 1



Answer (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. 

 

   

Answered on 18:50, Saturday 18 Nov 2017 by oussama baha eddine farhi (257 points)
In Algorithmique et structure de données 1



Answer (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

Answered on 20:27, Tuesday 21 Nov 2017 by chourouk bouakaz (7 points)
In Algorithmique et structure de données 1



Answer (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

Answered on 20:37, Tuesday 21 Nov 2017 by chourouk bouakaz (7 points)
In Algorithmique et structure de données 1



Answer (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

Answered on 16:34, Wednesday 22 Nov 2017 by هيثم سفيان معاوة (21 points)
In Algorithmique et structure de données 1



Answer (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

Answered on 18:28, Wednesday 22 Nov 2017 by amina monebbah (61 points)
In Algorithmique et structure de données 1



Answer (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

Answered on 23:31, Friday 24 Nov 2017 by Khaoula Mokrane (50 points)
In Algorithmique et structure de données 1



Answer (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.

Answered on 11:38, Saturday 25 Nov 2017 by بثينة شرايطية (50 points)
In Algorithmique et structure de données 1



Answer (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.

 

 

 

Answered on 20:30, Monday 27 Nov 2017 by Amani Haraoubia (47 points)
In Algorithmique et structure de données 1



Answer (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.

 

Answered on 10:54, Tuesday 28 Nov 2017 by MAROUA BEN AOUDI (8 points)
In Algorithmique et structure de données 1



Answer (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

Answered on 14:43, Tuesday 28 Nov 2017 by nabila lahmar (7 points)
In Algorithmique et structure de données 1



Answer (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

 

Answered on 19:15, Tuesday 28 Nov 2017 by وفاء زروقي (8 points)
In Algorithmique et structure de données 1



Answer (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

 

Answered on 19:15, Tuesday 28 Nov 2017 by وفاء زروقي (8 points)
In Algorithmique et structure de données 1



Answer (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

Answered on 19:26, Tuesday 28 Nov 2017 by mariem bouguessir (3 points)
In Algorithmique et structure de données 1



Answer (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 

Answered on 19:43, Thursday 30 Nov 2017 by sara younsi (127 points)
In Algorithmique et structure de données 1



Answer (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 

Answered on 19:44, Thursday 30 Nov 2017 by sara younsi (127 points)
In Algorithmique et structure de données 1



Answer (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.

Answered on 19:55, Sunday 3 Dec 2017 by seif eddine touati (166 points)
In Algorithmique et structure de données 1



Answer (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 . 

Answered on 17:56, Friday 8 Dec 2017 by nacer eddine ben nia (68 points)
In Algorithmique et structure de données 1



Answer (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

Answered on 21:12, Monday 11 Dec 2017 by amar zaoui (10 points)
In Algorithmique et structure de données 1



Answer (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

Answered on 20:01, Wednesday 13 Dec 2017 by hadjer haou (22 points)
In Algorithmique et structure de données 1



Answer (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

Answered on 18:33, Thursday 14 Dec 2017 by مراد صوايفية (12 points)
In Algorithmique et structure de données 1



Answer (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. 

Answered on 11:42, Tuesday 19 Dec 2017 by Cadi Mohamed riadh (14 points)
In Algorithmique et structure de données 1



Answer (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

Answered on 21:05, Thursday 21 Dec 2017 by أميرة زمال (84 points)
In Algorithmique et structure de données 1



Answer (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.

Answered on 12:37, Saturday 23 Dec 2017 by Chaima Hidri (32 points)
In Algorithmique et structure de données 1



Answer (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.

Answered on 12:58, Saturday 23 Dec 2017 by roumaissa guellati (5 points)
In Algorithmique et structure de données 1



Do you have an answer ?