Bissextile

2ème programme, toujours simple, permettant de déterminer si une année est bissextile ou pas.

---

Program bissextile ;

uses AlgoTypes ;

var a : integer;

begin
     while (True) do
     begin
         writeln('Entrez une année :');
         readln(a);
         if ((a mod 4=0 and a mod 100<>0) or (a mod 400=0)) then
             writeln('Cette année est bissextile')
         else
              writeln('Cette année n''est pas bissextile');
     end;

end.

---

Codeurs : Moi
Date : 23/10/2007
Language : Turbo-Pascal
Ligne : 17