Question

Sa se scrie un program care scrie TRUE daca un intreg a , reprezinta un an bisect si FALS caz contrar..Precizare: anii bisecti sunt multipli de 4, exceptand multiplii de 100, dar includ multiplii de 400..
Rezolvare in Pascal..

Answer 1

Răspuns:

program AnBisect;

var an:integer;

begin

 readln(an);

 if (an mod 4 = 0) and (an mod 100 <> 0) or (an mod 400 = 0) then

   writeln('TRUE')

 else

   writeln('FALSE');

 

   

end.

Explicație: