Department of Mathematics and Computer Science

Algorithme nombre;

Var nbr:entier;

Ecrire('donez moi un nbr');

Lire(nbr);

Si nbr mod 2=0 alors 

Ecrire ('paire')

Sinon 

Ecrire('impaire')

Fsi;

Fin.

;Algorithme paireimpaire

;Var nbr:entier

Debut

;('ecrire('donnez moi le nombre

;(lire(nbr

Si nbr mod 2 =0 alors 

('Ecrire(ce nombre est paire

Sinon

('Ecrire('ce nombre est impaire

Fsi

.Fin

algorithme  nbr;

var nbr:entier;

écrire ('donnez un nombre');

lire( nbr);

si nbr mod 2=0 alors 

écrire('pair');

sinon écrire ('impaire')

fsi;

fin.

trés bien mes camarades :) 

algorithme  nbr;

var n:entier;

écrire ('donnez un nombre');

lire( n);

si (n mod 2)=0 alors 

écrire('pair');

sinon écrire ('impaire')

fsi;

fin.

algorithme nombre;

var nbr:entier ;

ecrire('donnez le nombre');

lire(nbr);

si ( nbr mod 2 = 0 ) alors 

ecrire ( ' pair')

sinon

ecrire(' impaire');

fin .

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');

n mod 2<>0:écrire('le nombre est impair');

fcas;

fin.

Algorithme pair;

Var nbr:entier;

Ecrire('donez le nombre ');

Lire(nbr);

Si nbr mod 2=0 alors 

Ecrire ('le nombre est paire')

Sinon 

Ecrire('le nombre est impaire')

Fsi;

Fin.

algorithme pairimp;

var x:entier;

debut

ecrire('donnez un nbr');

lire(x);

si ((x mod 2)=0) alors

ecrire('le nombre est pair')

sinon 

ecrire('le nombre est impair');

fin.

Algorithme nombre ;

Var nbr : entier ;

Début 

Écrire ('donnez un nbr');

Lire (nbr);

Si (nbr mod 2)=0 alors 

Écrire ('le nombre est paire')

Sinon 

Écrire (' le nombre est impaire ') 

Fsi ;

Fin .

Algorithme pair;

Var n:entier;

Debut

Lire (n);

Si n mod 2 =0 alors ecrire (n,'est pair')

Sinon ecrire (n,'inpair');

Fsi

Fin.

program impair;

var n:integer;

begin

writeln('donnez un nombre',n);

readln(n);

if n mod 2=0 then

  writeln('le nombre est pair')

else

   writeln(n,'est impair')

end.

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.

algorithme nombre;

var nbr:entier ;

ecrire('donnez le nombre');

lire(nbr);

si ( nbr mod 2 = 0 ) alors 

ecrire ( ' pair')

sinon

ecrire(' impaire');

fin .

algorithme pair_impaire;

var N :entier;

debut

ecrire('donnez un nombre');

lire(N);

si (N mod 2=0)alors 

    ecrire ('le nombre est pair')

sinon

    ecrire('le nombre est impaire');

fin.

Algorithme pair;

Var n,p:entier;

Debut

Lire (n);

P:=n mod 2;

Si p=0 alors 

Ecrire (n,'est un nombre pair')

Sinon ecrire (n,'est un nombre inpair');

Fsi

Fin.

Program pair;

Var n,p:integer;

Begin

Write ('entrer le nombre n=');

Read (n);

P:=n mod 2;

If p=0 then 

Write (n,'est un nombre pair')

Else write (n,'est un nombre inpair');

Readkey;

End.

algorithme pair;

var nbr:entier;

debut

lire(nbr);

si nbr mod 2=0 alors

ecrire('Ce nombre est pair')

sinon

ecrire('Ce nombre est impair');

fsi;

fin.

algorithme paire et impaire;

var nbr:entier;

début

lire(nbr);

si(nbr mod 2=0) alors

écrire('ce nombre est pair');

sinon

écrire('ce nombre est impair');

fsi;

fin.  

Algorithme pair_impair ; 

Var n : entier ; 

Debut 

Lire(n) ; 

Si  ( n mod 2 =0 )     alors 

Ecrire( 'ce nombre est pair ' ) 

Sinon 

Ecrire( ' ce nombre est impair ' ) 

Fsi

Fin.

algorithme paireimpaire;

var n:entier;

debut

écrire('entrer un nombre n'); lire(n);

si (n mod 2=0) alors écrire('ce nombre est paire')

sinon écrire('nombre impaire');

finsi;

fin.

Algorithme nombre;

Var nbr:entier;

Ecrire('donez moi un nbr');

Lire(nbr);

Si nbr mod 2=0 alors 

Ecrire ('paire')

Sinon 

Ecrire('impaire')

Fsi;

Fin.