أرشيف قسم الرياضيات والإعلام الآلي

Algorithme pair - impair ;

Var nbr: entre;

Debut

Écrire ( 'donnez le nombre ');

Lire (nbr);

Si nbr mod 2=0 alors

Écrire (' nbr est pair ')

Sinon 

Écrire ( 'nbr est impair');

Fin.