fork download
copy 
  1. PROGRAM ex3_2
  2. REAL :: w, h, bmi 
  3. READ *, w, h
  4. bmi = w / h**2
  5.  
  6. IF (bmi>=25) THEN
  7. PRINT *, '肥満'
  8. ELSEIF (bmi<=18.5) THEN
  9. PRINT *, '痩せすぎ'
  10. ELSE
  11. PRINT *, '普通'
  12. ENDIF
  13. END PROGRAM ex3_2
  14.  
Success #stdin #stdout 0s 5320KB
comments (?)
stdin
copy 
60
1.8
stdout
copy 
 普通
https://ideone.com/RrraWa
language:
Fortran (gfortran 8.3)
created:
10 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!