9 lines
237 B
Text
9 lines
237 B
Text
100 PROGRAM "Leapyear.bas"
|
|
110 FOR I=1990 TO 2020
|
|
120 IF LEAPY(I) THEN
|
|
130 PRINT I;"is a leap year."
|
|
140 ELSE
|
|
150 PRINT I;"is not a leap year."
|
|
160 END IF
|
|
170 NEXT
|
|
180 DEF LEAPY(Y)=MOD(Y,4)=0 AND MOD(Y,100) OR MOD(Y,400)=0
|