24.下面程序的作用为判断是否闰年(非闰年为不可被4整除,或能被100整除但不能被400整除的年份)。
INPUT “Year=”;y
??IF y MOD 4<>0 THEN
??
??ELSE
IF
THEN
?? Leapyear=0
??
ELSE
?? Leapyear=1
END IF
??ENDIF
??IF Leapyear=0 THEN
?? PRINT “Non-Leap Year!”
??ELSE
??
PRINT “Leap Year!”
??END IF
??END
??
26.下面程序是求1000以内被3整除余数为2,被7整除余数为3的所有自然数之和
i=1
s=0
WHILE i<=1000
IF THEN
END IF
i=i+1
WEND
Print s
END
27.下面程序是求两正整数m,n的最大公约数
INPUT m,n
IF m<n THEN
m=n
n=t
END IF
r=m mod n
WHILE
m=n
n=r
r=m mod n
WEND
PRINT “the greatest common
divisor is:”;
END