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

ALGORITHME pairimpair;

VAR n:entier;

DEBUT

     ECRIRE ('intoduisez un entier:');

     LIRE (n);

          SI n MOD 2=0 ALORS

          ECRIRE ('le nombre',n,'est pair')

          SINON ECRIRE ('le nombre',n,'est impair');

FIN.

Bravo #adléne

algorithme pairimpair;

var nb:entier;

debut

ecrire('donnez le nombre');

lire(nb);

      si nb mod 2=0 alors

        ecrire('le nombre est pair')

     sinon ecrire('le nombre est impair');

fin.

Algorithme pairimpaire;

Var nb:entier;

Début

Écrire('donnez nombre ')

Lire (nb);

Si nb mod 2=0 alors

Écrire('le nombre est pair ');

Sinon écrire ('le nombre est impair');

Fin. 

G3 

Algorithme pairimpaire;

VAR nb:entier;

debut

ecrire('donnez le nombre');

lire(nb);

si nb mod 2=0 alors

ecrire('le nombre est pair');

sinon ecrire('le nombre est impair');

fin.

Algorithme pair_impair;

Const y=2;

Var X:réel;

Début

Écrire('donnez un nombre');

Lire(X);

Si (xmody=0) alors

Écrire(X, 'est un nombre paire')

Sinon

Écrire(X, 'est un nombre impaire');

Fin

ahlogirthme paireimpaire;

const y=2;

var x:entier;

debut

écrir (' donnez le nobmre ');

lire(x);

si x mod y =0 alors

ecrire (x,'est un nombre paire')

sinon

écrire (x,'est un nombre impair ');

fin.

Algorithme  pair_impaire;

Var Nbre: entier;

Debut

Ecrire ( ' donnez le nbre');

Lire ( nbre);

Si  nbre MOD 2 =0 Alors

Ecrire  ('nbre est pair')

Sinon 

Ecrire  (' nbre est impaire');

FIN.

algorithme introduit;

const m=2;

var n:entier;

bebut

écrire('donnez moi un nombre',n);

lire(n);

 si n Mod m=0 alors

écrire(n,' est un nombre pair')

sinon

écrire(n,'est un nombre impair'):

fin.

Algorithme  pair- impaire;

Const y=2;

Var NB:entier ;

Début

Écrire ('donnez nombre');

Lire (NB);

Si (NB mod 2=0)alors

Écrire ('le nombre est pair )

Sinon

Écrire ('le nombre est impair');

Fin.

G3

;Algorithme paireimpaite

;Var nbr:entier

;ecrire('donnez la valeur de nbr')

;lire(nbr)

Si nbr mod 2=0 alors

;('Ecrire('le nombre est paire

Si non

;('Ecrire('le nombre est impaire

;Fsi

;Fin

algorithme pairimp;

var x:entier;

debut

ecrire('donnez un nombre entier');

lire(x);

si x mode 2=0 alors

ecrire('le nombre est pair')

sinon ecrire('le nombre est impair');

fin.

Algorithme pairimpair;

Var nbr:entier ;

Début

Écrire ('donnez le nombre  ');

Lire (nbr);

Si nbr mod 2=0 alors 

Écrire (' le nombre est pair ')

Si non

Écrire (' le nombre est impair')

Fsi.

Fin.

algorithme introduit;

const x=2;

var y:entier;

debut

écrire('donnez un nombre',y);

lire(y);

si y mod x=0 alors

écrire('y,est un nombre pair')

sinon

écrire('y,'est un nombre impair')

fin.

algorithme pair;

var nb:entier;

debut

ecrire('donnez le nombre');

lire(nb);

      si nb mod 2=0 alors

        ecrire('le nombre est pair')

     sinon ecrire('le nombre est impair')

fsi;

fin.

algorithme pair;

var nbr:entier;

debut

lire(nbr);

si nbr mod 2 =0 alors

ecrire('le nombre est pair')

sinon ecrire('le nombre est unpair');

fsi

end.

Algorithme pairimpair;

Var  n:entier;

Debut 

Ecrire('introduisez un nbr entier');

Lire(n);

Si n mod=0 alors 

Ecrire('le nmb est paire');

Si non

Ecrire ('le nmb est impaire');

Fsi;

Fin.

Algorithme pairimpaire;

Var nbr:entier;

Début

Écrire('donnez nombre ')

Lire (nbr);

Si nbr mod 2=0 alors

Écrire('le nombre est pair ')

Sinon

écrire ('le nombre est impair')

fsi;

Fin. 

methode 02:

algorithme nombre;

var n:entier;

debut

écrire('tapez un nombre',n);

lire(n);

cas à n vaut

n mod 2=0:écrire('le nombre est pair')

autre:écrire('le nombre est impair')

fcas;

fin.

ahlogirthme paireimpaire;

const y=2;

var x:entier;

debut

écrir (' donnez le nobmre ');

lire(x);

si x mod y =0 alors

ecrire (x,'est un nombre paire')

sinon

écrire (x,'est un nombre impair ');

fin.

algorithme pairimpair;

var nb:entier;

debut

ecrire('donnez le nombre');

lire(nb);

      si nb mod 2=0 alors

        ecrire('le nombre est pair')

     sinon ecrire('le nombre est impair');

fin.

;Algorithme paireimpaite

;Var nbr:entier

;ecrire('donnez la valeur de nbr')

;lire(nbr)

Si nbr mod 2=0 alors

;('Ecrire('le nombre est paire

Si non

;('Ecrire('le nombre est impaire

;Fsi

.Fin

algorithme paureimpaire ;

var nbr :entier ;

ecrire ('donnezla valeur de nbr 'nbr);

lire (nbr);

si nbr mod 2=0alors 

ecrire ('le nombre est paire ')

si non

ecrire ('le nombre est impaire ') ;

fsi;

fin.

Algorithme pair - impair ;

Var nbr :entier;

Debut

Ecrire ('donnez le nbr');

Lire (nbr);

Si nbr mod 2=0 alors

Ecrire ('nbr est pair')

Sinon

Ecrire ('nbr est impair' ;

Fin.

G7