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

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

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

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

Algorithme multiples

-1 votes

Ecrire un algorithme qui lit deux nombres n1 et n2 et écrit les nombres de n1 à n2, sauf les multiples de 3 et les multipes de 5.

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


أجوبة (34)




جواب (1)

2 votes

Algorithme  nombres ; 

Var  n1 , n2 ,  n3 , n , i :entier ; 

 

debut

Lire(n1,n2) ; 

Si n1>n2    alors 

n3:=n1 ; 

n2:=n1 ; 

n1:=n3; 

Fsi 

n:=n1-1 ; 

    Pour i:=n1 à  n2     fair 

     n:=n+1 ;

        Si  (n mod 3 <>0 ) et ( n mod 5 <>0 )   alors 

        Ecrire(n) ;

        Fsi

  Finpour

 

fin. 

 

Bon courage mes camarades ^_^ 

 

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



جواب (3)

-2 votes

algorithme nombre ; 

Var  n1 , n2 ,  n3 , n , i :entier ; 

debut

Lire(n1,n2) ; 

Si n1>n2    alors 

n3:=n1 ; 

n2:=n1 ; 

n1:=n3; 

Fsi 

n:=n1-1 ; 

    Pour i:=n1 à  n2     fair 

     n:=n+1 ;

        Si  (n mod 3 <>0 ) et ( n mod 5 <>0 )   alors 

        Ecrire(n) ;

        Fsi

  Finpour

fin.

نشر على 20:10, الخميس 16 نوف 2017 by نسرين ولهي (106 points)
In Algorithmique et structure de données 1



جواب (4)

0 votes

Algorithme multi;

Var n1,n2,n,N,cpt:entier;

Debut

Lire (n1,n2);

Si n1>n2 alors

Begin

n:=n1; n2:=n1; n3:=n;

End;

N:=n1-1;

POUR i:=n1 à n2 faire

Begin

N:=N+1;

si N mod 3 <>0 alors

Ecrire (N);

Fsi

Si N mod 5 <>0 alors

Ecrire (N);

Fsi

End;

End.

 

نشر على 20:16, الخميس 16 نوف 2017 by oussama baha eddine farhi (257 points)
In Algorithmique et structure de données 1



جواب (5)

0 votes

Algorithme nombres ; 

Var n1, n2, i :entier ;

Debut 

Lire (n1, n2); 

i:=n1

Tantque i>=n2 faire 

i:=i+1; 

Si (i mod 3 <>0) et (i mod 5<>0) alors 

Ecrire(i); 

Fsi 

Ftq ; 

Fin. 

 

 

نشر على 20:24, الخميس 16 نوف 2017 by Haroun errachide Menaili (24 points)
In Algorithmique et structure de données 1



جواب (6)

-3 votes

algorithme nombre ; 

Var  n1 , n2  , n , i :entier ; 

debut

Lire(n1,n2) ;  

n:=n1-1 ; 

    Pour i:=n1 à  n2     fair 

     n:=n+1 ;

        Si  (n mod 3 <>0 ) et ( n mod 5 <>0 )   alors 

        Ecrire(n) ;

        Fsi

  Fpour;

fin.

 

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



جواب (7)

-2 votes

algorithme nombre;

var x,y,n,i:entier;

debut

lire(x,y);

n:=x-1;

  pour i:=x à y faire

  n:=n+1;

si (n mod 3<>0) et (n mod 5<>0) alors

ecrire(n);

fsi;

fpour;

fin.

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



جواب (8)

0 votes

ALGORITHME suitemulti;

VAR x,y,p,i:entier;

DEBUT

     LIRE (x,y);

     p:=x-1;

     POUR i:=x à y FAIRE

          DEBUT

          p:=p+1;

              SI (p MOD 3 <> 0) ET (p MOD 5 <> 0) ALORS

              ECRIRE (p);

          FINPOUR;  

FIN.

نشر على 14:19, السبت 18 نوف 2017 by Adlène Beddiar (18 points)
In Algorithmique et structure de données 1



جواب (9)

0 votes

Algorithme nombre ;

Var n1,n2,n3,n ,i: entier;

Début

Lire(n1,n2);

Si n1>n2 alors 

n3:=n1;

n2:=n1;

n1:=n3;

Fsi;

n:=n1-1

Pour i:=n1 a n2 fait 

n:=n+1;

Si (n mod 3 <>0) et (n mod 5<>0) alors 

Écrire (n);

Fsi;

Fpour ;

Fin.

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



جواب (10)

0 votes

algorithme nombre;

var n1,n2,n3,n,i : entier;

début

écrire ('donnez les deux nombre');

lire (n1,n2);

si n1>n2 alors

n3:=n1;

n2:=n1;

n1:=n3;

n:=n1-1

pour i:=1 à n2 faire

n:=n+1;

si (nmod 3<>0) et (n mod 5<>0) alors )

érire (n);

fin.

G 3 N:12

نشر على 19:35, السبت 18 نوف 2017 by hadjer haou (22 points)
In Algorithmique et structure de données 1



جواب (11)

0 votes

algorithme nombre;

var n1,n2,n3,i:entier;

ecrire(' dinnez les deux nombre');

lire(n1,n2);

si (n1>n2) alors

n3:=n1;

n2:=n1;

n1:=n3;

n:n1-1;

pour i:= 1 à n2 faire

n:= n+1;

si ( n mod 3<>0) rt ( n mod 5<> 0) alors

ecrire(n);

fin.

G:03

 

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



جواب (12)

0 votes

algorithme nombre ;

var n,n1,n2,n3,i:entier;

debut

ecrire('donnez les deux nombre');

lire(n1,n2);

si n1>n2 alors 

debut 

n3:=n1;  

n2:=n1;

n1:=n3;

fin;

n:=n1-1;

pour i:=1 à n2 faire 

n:=n+1;

si (n mod 3 <>0) et ( n mod 5 <> 0) alors 

ecrire(n);

fin.

G3

نشر على 16:52, الأحد 19 نوف 2017 by نريمان قشايشية (14 points)
In Algorithmique et structure de données 1



جواب (13)

0 votes

نشر على 10:35, الاثنين 20 نوف 2017 by خولة نصيبي (52 points)
In Algorithmique et structure de données 1



جواب (14)

0 votes

algorithme multiple;

var n,n1,n2,n3,cpt:reel;

debut

ecrire('entrez les nombre');

lire(n1,n2);

si n1>n2 alors

  n1:=n2;

  n1:=n3;

  n3:=n1;

pour i:= n1 a n2 faire

n:=n+1;

 si (n mod 3<>0) et (n mod 5<>0); alors

ecrire(n);

fin.

نشر على 13:55, الاثنين 20 نوف 2017 by halima dridi (35 points)
In Algorithmique et structure de données 1



جواب (15)

0 votes

program nombre;

varn1,n2,n3,n,i:integer;

begin

write('donnez les nombre');

read(n1,n2);

if n1>n2  then

 n1:=n3;

 n1:=n2;

 n3:=n1;

n:=n1-1;

i:=n1;

while i<=n2 do

begin

n:=n+1;

si (n mod 3<>0) et (n mod 5<>0) then

writeln(n);

i:=i+1;

end.

 

نشر على 14:02, الاثنين 20 نوف 2017 by halima dridi (35 points)
In Algorithmique et structure de données 1



جواب (16)

0 votes

L'algorithme :

Algorithme multiples;
var i,n1,n2,n3,n:entier;
debut
ecrire ('donnez les nombre');
lire(n1,n2);
si n1>n2 alors
debut
n3:=n1;
n1:=n2;
n2:=n3;
fin;
n:=n1-1;
puor i:=n1 à n2 faire
debut
n:=n+1;
si (n mod 3<>0) et (n mod 5<>0) alors
ecrire(n);
fin;
fin.

le programme :

La résultat:

G3 N30

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



جواب (17)

0 votes

Algorithme   nombre;

var x,y,n,i:entier;

debut

ecrire ('donnez les nombre');

lire(x,y);

n:=x-1;

pour i:=x ày faire

n:=n+1;

si(n mod 3<>0)et(n mod 5<>0) alors

ecrire(n);

fpour;

fin.

G:04

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



جواب (18)

0 votes

algorithme multiples ;

var x, y , i,m : entier ;

debut

ecrire ( ' donnez les nombres') ;

lire ( x,y) ;

m := x -1 ;

pour i := x à y faire 

debut 

m := m+1 ;

si ( m mod 3 <> 0 ) et ( m mod 5 <> 0) aors 

ecrire ( m) ;

fin;

fin .

نشر على 12:45, السبت 25 نوف 2017 by Amani Haraoubia (47 points)
In Algorithmique et structure de données 1



جواب (19)

0 votes

algorithme      multiples;

var i,n1,n2,n3,n:entier;

debut

ecrire ('donnez les nombre');

lire (n1,n2);

si n1>n2alors

debut

n3:=n1;

n1:=n2;

n2:=n3;

fin;

n:=n1-1;

pour i:=n1àn2 faire

debut

n:=n+1;

si(n mod3<>0)et (n mod5<>0) alors

ecrire (n);

fin;

fin. 

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



جواب (20)

0 votes

algorithme   nombres;

var n1,n2,n3,n,i:entier;

debut

lire(n1,n2);

si n1>n2 alors

n3:=n1;

n2:=n1;

n1:=n3;

finsi

n:=n1-1;

pour i:=n1à n2 faire

n:= n+1;

si(n mod 3<>0)et (n mod 5<>0)alors

ecrire (n);

fsi

fpour

fin.

 

 

G04

 

نشر على 20:07, الأحد 26 نوف 2017 by وفاء زروقي (8 points)
In Algorithmique et structure de données 1



جواب (21)

0 votes

 

Algorithme multiples;

var i,n1,n2,n3,n:entier;

debut

ecrire ('donnez les nombre');

lire(n1,n2);

si n1>n2 alors

debut

n3:=n1;

n1:=n2;

n2:=n3;

fin;

n:=n1-1;

puor i:=n1 à n2 faire

debut

n:=n+1;

si (n mod 3<>0) et (n mod 5<>0) alors

ecrire(n);

fin;

fin.

نشر على 22:58, الأحد 26 نوف 2017 by Khaoula Mokrane (50 points)
In Algorithmique et structure de données 1



جواب (22)

0 votes

Algorithme multi;

Var n1,n2,n,N,cpt:entier;

Debut

Lire (n1,n2);

Si n1>n2 alors

Begin

n:=n1; n2:=n1; n3:=n;

End;

N:=n1-1;

POUR i:=n1 à n2 faire

Begin

N:=N+1;

si N mod 3 <>0 alors

Ecrire (N);

Fsi

Si N mod 5 <>0 alors

Ecrire (N);

Fsi

End;

End.

 

نشر على 19:31, الأربعاء 29 نوف 2017 by oussama baha eddine farhi (257 points)
In Algorithmique et structure de données 1



جواب (23)

0 votes

Algorithme multi;

Var n1,n2,n,N,cpt:entier;

Debut

Lire (n1,n2);

Si n1>n2 alors

Begin

n:=n1; n2:=n1; n3:=n;

End;

N:=n1-1;

POUR i:=n1 à n2 faire

Begin

N:=N+1;

si N mod 3 <>0 alors

Ecrire (N);

Fsi

Si N mod 5 <>0 alors

Ecrire (N);

Fsi

End;

End.

 

 

نشر على 19:32, الأربعاء 29 نوف 2017 by oussama baha eddine farhi (257 points)
In Algorithmique et structure de données 1



جواب (24)

0 votes

algorithme nombre ; 

Var  n0 , n1  , n , i :entier ; 

debut

Lire(n0,n1) ;  

n:=n0-1 ; 

    Pour i:=n0 à  n1     faire 

     n:=n+1 ;

        Si  (n mod 3 <>0 ) et ( n mod 5 <>0 )   alors 

        Ecrire(n) ;

     finsi;

  Fpour;

fin.

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



جواب (25)

0 votes

Var  n0 , n1  , n , i :entier ; 

debut

Lire(n0,n1) ;  

n:=n0-1 ; 

    Pour i:=n0 à  n1     faire 

     n:=n+1 ;

        Si  (n mod 3 <>0 ) et ( n mod 5 <>0 )   alors 

        Ecrire(n) ;

     finsi;

  Fpour;

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



جواب (26)

0 votes

Algorithme  nombres ; 

Var  n1 , n2 ,  n3 , n , i :entier ; 

 

debut

Lire(n1,n2) ; 

Si n1>n2    alors 

n3:=n1 ; 

n2:=n1 ; 

n1:=n3; 

Fsi 

n:=n1-1 ; 

    Pour i:=n1 à  n2     fair 

     n:=n+1 ;

        Si  (n mod 3 <>0 ) et ( n mod 5 <>0 )   alors 

        Ecrire(n) ;

        Fsi

  Finpour

 

fin. 

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



جواب (27)

0 votes

Algorithme smitemulti;

Var x,y,p,i:entier;

Debut

Lire(x,y);

P:=x-1;

Pour i:=x à y faire

Debut

P:=p+1;

Si (p mod 3<>0) et (p mod 5<>0)alors

Ecrire(p);

Fin pour;

Fin.

نشر على 10:33, الأحد 10 ديس 2017 by ويصال لعلايبية (11 points)
In Algorithmique et structure de données 1



جواب (28)

0 votes

Algorithme multi;

Var n1,n2,n,N,cpt:entier;

Debut

Lire (n1,n2);

Si n1>n2 alors

Begin

n:=n1; n2:=n1; n3:=n;

End;

N:=n1-1;

POUR i:=n1 à n2 faire

Begin

N:=N+1;

si N mod 3 <>0 alors

Ecrire (N);

Fsi

Si N mod 5 <>0 alors

Ecrire (N);

Fsi

End;

End.

                                                           g:3

 

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



جواب (29)

0 votes

Algorithme multi;

Var n1,n2,n,N,cpt:entier;

Debut

Lire (n1,n2);

Si n1>n2 alors

Begin

n:=n1; n2:=n1; n3:=n;

End;

N:=n1-1;

POUR i:=n1 à n2 faire

Begin

N:=N+1;

si N mod 3 <>0 alors

Ecrire (N);

Fsi

Si N mod 5 <>0 alors

Ecrire (N);

Fsi

End;

End.    g3

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



جواب (30)

0 votes

Algorithme multi;

Var n1,n2,n,N,cpt:entier;

Debut

Lire (n1,n2);

Si n1>n2 alors

Begin

n:=n1; n2:=n1; n3:=n;

End;

N:=n1-1;

POUR i:=n1 à n2 faire

Begin

N:=N+1;

si N mod 3 <>0 alors

Ecrire (N);

Fsi

Si N mod 5 <>0 alors

Ecrire (N);

Fsi

End;

End.

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



جواب (31)

0 votes

Algorithme multi;

Var n1,n2,n,N,cpt:entier;

Debut

Lire (n1,n2);

Si n1>n2 alors

Begin

n:=n1; n2:=n1; n3:=n;

End;

N:=n1-1;

POUR i:=n1 à n2 faire

Begin

N:=N+1;

si N mod 3 <>0 alors

Ecrire (N);

Fsi

Si N mod 5 <>0 alors

Ecrire (N);

Fsi

End;

End.

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



جواب (32)

0 votes

winkwink

نشر على 20:31, السبت 23 ديس 2017 by أميرة زمال (84 points)
In Algorithmique et structure de données 1



جواب (33)

0 votes

winkwink

نشر على 20:32, السبت 23 ديس 2017 by أميرة زمال (84 points)
In Algorithmique et structure de données 1



جواب (34)

0 votes

Algorithme nombre;

VARn1,n2,n3,n,i:entier;

DEBUT 

Lire(n1,n2)

si n1>n2 alors 

n3:=n1;

n2:=n1;

n1:=n3;

fin;

n:=n1-1;

Pour i:=n1 a n2 faire 

n:=n+1;

si (n MOD 3<>0) et (n MOD 5<>0) alors 

ecrire (n);

fin;fin;

Fin.

نشر على 14:47, الأحد 24 ديس 2017 by roumaissa guellati (5 points)
In Algorithmique et structure de données 1



هل لديك جواب ?