Il existe une fonction dans de nombreux langages, comme le Pascal, permettant de déterminer si un nombre est impaire ou paire. Voici un programme très performant permettant de déterminer celui-ci en QuickPascal:
Program OddSamples;
Function Odd(value:Integer):Boolean;Begin
Odd := value and 1 = 1;
End;
Var
I:Integer;
BEGIN
For I := -4 To 10 do Begin
Write('Le nombre ',I,' est ');
If Odd(I)Then WriteLn('Impaire')
Else WriteLn('Pair');
End;
END.
on obtiendra le résultat suivant:
Le nombre -4 est PairLe nombre -3 est Impaire
Le nombre -2 est Pair
Le nombre -1 est Impaire
Le nombre 0 est Pair
Le nombre 1 est Impaire
Le nombre 2 est Pair
Le nombre 3 est Impaire
Le nombre 4 est Pair
Le nombre 5 est Impaire
Le nombre 6 est Pair
Le nombre 7 est Impaire
Le nombre 8 est Pair
Le nombre 9 est Impaire
Le nombre 10 est Pair
Voir également
Dernière mise à jour : Dimanche, le 4 mai 2014