用fortran语言编程,要求判断年份是否为闰年,如果是输入xxx年是闰年,否则输入xxx年不是闰年

[复制链接]
查看11 | 回复1 | 2012-11-11 16:00:45 | 显示全部楼层 |阅读模式
program main
implicit none
integer year,runnian
read (*,*) year
runnian=0
if (mod(year,100)==0) then
if (mod(year,400)==0) then
runnian=1
end if
else
if(mod(year,4)==0) then
runnian=1
end if
end if
if (runnian==1) then
...
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行