année bissextile

ENONCE
Ecrire un programme qui détermine si une année donnée est bissextile ou non.
ANALYSE
Résultat = ANBIS
ANBIS= [ ] SI ANNEE MOD 4 = 0
ALORS
Ecrire (« l’année est bissextile »)
SINON
Ecrire (« l’année n’est pas bissextile »)
ANNEE = Donnée
Fin BISSEXTILE

ALGORITHME
0) Début BISSEXTILE
1) Ecrire (‘donnez l’année’)
Lire (ANNEE)
2) SI ANNEE MOD 4 = 0 ALORS
Ecrire (« l’année »,ANNEE, « est bissextile »)
SINON
Ecrire (« l’année »,ANNEE, « n’est
pas bissextile »)

3) Fin BISSEXTILE

PASCAL
PROGRAM BISSEXTILE;
USES Wincrt ;
VAR
ANNEE : integer ;
BEGIN
Write ('Donnez l année :') ; Readln(ANNEE) ;
IF ANNEE MOD 4 = 0 THEN
Writeln ('l année',ANNEE,' est bissextile')
ELSE
Writeln ('l année',ANNEE,' n"est pas bissextile');
END.