exam1.prg

来自「专业数据库程序」· PRG 代码 · 共 11 行

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