RosettaCodeData/Task/Leap-year/BASIC/leap-year-4.basic
2019-09-12 10:33:56 -07:00

2 lines
83 B
Text

5000 LET L=Y/4=INT (Y/4) AND (Y/100<>INT (Y/100) OR Y/400=INT (Y/400))
5010 RETURN