mirror
/
RosettaCodeData
mirror of https://github.com/acmeism/RosettaCodeData.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity
RosettaCodeData/Task/Leap-year/BASIC/leap-year-4.basic

3 lines
83 B
Plaintext
Raw Permalink Blame History

5000 LET L=Y/4=INT (Y/4) AND (Y/100<>INT (Y/100) OR Y/400=INT (Y/400))
5010 RETURN
Reference in New Issue View Git Blame Copy Permalink