fork download
copy 
  1. PROGRAM ex1_3 
  2. REAL :: w, h, bmi
  3. READ  * ,w, h 
  4. bmi= w/ h**2
  5. PRINT * ,bmi 
  6. END PROGRAM ex1_3
Success #stdin #stdout 0s 5332KB
comments (?)
stdin
copy 
75 1.85
stdout
copy 
   21.9138050
https://ideone.com/AT8LnM
language:
Fortran (gfortran 8.3)
created:
3 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!