Question

How to check leap year in Pascal

Answer 1

program CheckLeapYear;

var
  year: Integer;
begin
  year := 2016;
  
  if ((year mod 4 = 0) and (year mod 100 <> 0)) or (year mod 400 = 0) then
    WriteLn(year, ' is a leap year.')
  else
    WriteLn(year, ' is not a leap year.');
end.



(*
run:

2016 is a leap year.

*)

 

70+ SQL courses for beginners and professionals