fork download
copy 
  1. PROGRAM ex3_5 
  2. INTEGER :: n 
  3. READ *, n 
  4. IF( MOD(n, 400) == 0 ) THEN 
  5. PRINT *, 'うるう年' 
  6. ELSE IF( MOD(n, 100) == 0 ) THEN 
  7. PRINT *, '平年' 
  8. ELSE IF( MOD(n, 4) == 0 ) THEN 
  9. PRINT *, 'うるう年' 
  10. ELSE 
  11. PRINT *, '平年' 
  12. END IF 
  13. END PROGRAM ex3_5
Success #stdin #stdout 0s 5320KB
comments (?)
stdin
copy 
2026
stdout
copy 
 平年
https://ideone.com/0W7i5P
language:
Fortran (gfortran 8.3)
created:
14 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!