要求画出流程图
n=0
cls
for i=0 to 2008
if i mod 4=0 and i mod 100<>0 or i mod 400=0 then pring i;:n=n+1
next i
?"一共有";n;"个闰年
end"
cls
for i=0 to 2008
if i mod 4=0 and i mod 100<>0 or i mod 400=0 then pring i;:n=n+1
next i
?"一共有";n;"个闰年
end"
温馨提示:答案为网友推荐,仅供参考