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

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 . 

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.

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

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 . 

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 . 

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.

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 . 

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.

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.

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.

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.

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

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. 

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

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

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

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

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

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.

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.

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.

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

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

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

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

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 

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 

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.

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 . 

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

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

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

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. 

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

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.

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.