exam1.prg

专业数据库程序

clear
set talk off
input "请输入年份：" to year
if  mod(year,4)=0 AND mod(year,100)=0 or mod(year,400)=0
?year,"年是闰年"
else
?year,"年不是闰年"
endif 
set talk on