fork download
copy 
  1. PROGRAM ex4_4
  2.   IMPLICIT NONE
  3.   INTEGER:: year, days 
  4.  
  5.   PRINT *, 'Input a year:' 
  6.   READ *, year
  7.  
  8.   days = 365 * year + year / 4 - year / 100 + year / 400
  9.  
  10.   PRINT *, year, '年１２月３１日は、１年１月１日から数えて', &
  11.            days, '日目です。'
  12.  
  13.  
  14.            IF ( mod ( days, 7 ) == 0 ) THEN
  15.               PRINT *, '日曜日'
  16.            ELSE IF ( mod ( days, 7 ) == 1 ) THEN
  17.               PRINT *, '月曜日'
  18.            ELSE IF ( mod ( days, 7 ) == 2 ) THEN
  19.               PRINT *, '火曜日'
  20.            ELSE IF ( mod ( days, 7 ) == 3 ) THEN
  21.               PRINT *, '水曜日'
  22.            ELSE IF ( mod ( days, 7 ) == 4 ) THEN
  23.               PRINT *, '木曜日'
  24.            ELSE IF ( mod ( days, 7 ) == 5 ) THEN
  25.               PRINT *, '金曜日'
  26.            ELSE IF ( mod ( days, 7 ) == 6 ) THEN
  27.               PRINT *, '土曜日'         
  28.  
  29.            END IF
  30.  
  31. END PROGRAM ex4_4
Success #stdin #stdout 0s 5568KB
comments (?)
stdin
copy 
2021
stdout
copy 
 Input a year:
        2021 年１２月３１日は、１年１月１日から数えて      738155 日目です。
 金曜日
https://ideone.com/yrbAuO
language:
Fortran (gfortran 8.3)
created:
2 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!