Pascal Bac: Parité

mardi 27 septembre 2016

Parité

19:33

```
Program Parite;
Var
N : Integer;
Begin
Writeln ('Donner un entier '); 
Readln (n);
IF n mod 2 = 0 Then Writeln (n,' est pair')
Else Writeln (n,' est impair');
End.
```

0 commentaires:

Enregistrer un commentaire

Inscription à : Publier les commentaires (Atom)