10 lines
237 B
Text
10 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
|