categoryFORTRAN覚書

うるう年判定2

trackback0  comment0
プログラミング覚書 Fortran-015

うるう年判定2
----------------------------------------------------------------------

!----- Alternative Program -----
INTEGER :: n
READ*, n
IF( ( MOD(n, 4)==0 .AND. MOD(n, 100)/=0 ) &
.OR. MOD(n, 400)==0 ) THEN
PRINT*,"うるう年です。"
ELSE
PRINT*,"平年です。"
END IF
END


関連記事
 









        
 
http://greenwind888.blog.fc2.com/tb.php/207-5005a474