fork download
copy 
  1. ! 例題4-4 万年暦の準備
  2. PROGRAM ex4_4
  3.  
  4.   IMPLICIT NONE
  5.   INTEGER:: year, days
  6.  
  7.   PRINT *, 'Input a year:'
  8.   READ *, year
  9.  
  10.   days = 365 * year + year / 4 - year / 100 + year / 400
  11.   PRINT *, year, '年12月31日は，１年１月１日から数えて', &
  12.            days, '日目です。'
  13.  
  14. END PROGRAM ex4_4
  15.  
  16.  
Success #stdin #stdout 0s 5512KB
comments (?)
stdin
copy 
2021
stdout
copy 
 Input a year:
        2021 年12月31日は，１年１月１日から数えて      738155 日目です。
https://ideone.com/5AapUr
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!