fork download
copy 
  1. PROGRAM ex4_4 
  2. IMPLICIT NONE 
  3. INTEGER:: year, days 
  4. PRINT *, 'Input a year:' 
  5. READ *, year 
  6. days = 365 * year + year / 4 - year / 100 + year / 400 
  7. IF(MOD(days,7)==1)THEN
  8. PRINT *,year, '年 12 月 31 日は，１年１月１日から数えて', & 
  9. days, '日目の月曜日です。'
  10. ELSE IF(MOD(days,7)==2)THEN
  11. PRINT *,year, '年 12 月 31 日は，１年１月１日から数えて', & 
  12. days, '日目の火曜日です。'
  13. ELSE IF(MOD(days,7)==3)THEN
  14. PRINT *,year, '年 12 月 31 日は，１年１月１日から数えて', & 
  15. days, '日目の水曜日です。'
  16. ELSE IF(MOD(days,7)==4)THEN
  17. PRINT *,year, '年 12 月 31 日は，１年１月１日から数えて', & 
  18. days, '日目の木曜日です。'
  19. ELSE IF(MOD(days,7)==5)THEN
  20. PRINT *,year, '年 12 月 31 日は，１年１月１日から数えて', & 
  21. days, '日目の金曜日です。'
  22. ELSE IF(MOD(days,7)==6)THEN
  23. PRINT *,year, '年 12 月 31 日は，１年１月１日から数えて', & 
  24. days, '日目の土曜日です。'
  25. ELSE IF(MOD(days,7)==0)THEN
  26. PRINT *,year, '年 12 月 31 日は，１年１月１日から数えて', & 
  27. days, '日目の日曜日です。'
  28. END IF
  29. END PROGRAM ex4_4
Success #stdin #stdout 0.01s 5312KB
comments (?)
stdin
copy 
2025
stdout
copy 
 Input a year:
        2025 年 12 月 31 日は，１年１月１日から数えて      739616 日目の水曜日です。
https://ideone.com/MJuVI6
language:
Fortran (gfortran 8.3)
created:
13 hours 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!