قسم الرياضيات و الإعلام الإليwww.univ-soukahras.dz/ar/dept/mi |
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 |
أجوبة (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 Feteh HESSAINIA |
جواب (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 rayene ridane |
جواب (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 narimene kechaichia (14 points) |
جواب (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 abderrahmane brinis |
جواب (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 abderrahmane brinis |
جواب (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 |
جواب (7)
-3 votes
|
|
نشر على 14:38, السبت 18 نوفمبر 2017 by Haifa Benlassowd |
جواب (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 Touaitia Ouassim (12 points) |
جواب (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 Aicha Azzag (14 points) |
جواب (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 rayene ridane |
جواب (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 rayene ridane |
جواب (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 rayene ridane |
جواب (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 Marwa GHODBANE |
جواب (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 |
جواب (15)
0 votes
|
|
|||
نشر على 18:50, السبت 18 نوفمبر 2017 by oussama baha eddine farhi |
جواب (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) |
جواب (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) |
جواب (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 Haithem Sofiene Maoua (21 points) |
جواب (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 |
جواب (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 |
جواب (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 Bouthaina Cheraitia |
جواب (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) |
جواب (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) |
جواب (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) |
جواب (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) |
جواب (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) |
جواب (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) |
جواب (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 |
جواب (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 |
جواب (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 |
جواب (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 |
جواب (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) |
جواب (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) |
جواب (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) |
جواب (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) |
جواب (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 أميرة زمال |
جواب (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 Chaima Hidri (32 points) |
جواب (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) |