fork download
copy 
  1. IMPLICIT none
  2. REAL::a,b,wa,sa,seki,syou,root
  3. READ*,a,b
  4. wa=a+b
  5. sa=a-b
  6. seki=a*b
  7. syou=a/b
  8. root=sqrt(a)
  9. PRINT*,a,b,wa,sa,seki,syou
  10. END
  11.  
Success #stdin #stdout 0.01s 5280KB
comments (?)
stdin
copy 
5 10
stdout
copy 
   5.00000000       10.0000000       15.0000000      -5.00000000       50.0000000      0.500000000
https://ideone.com/rDZEZf
language:
Fortran (gfortran 8.3)
created:
2 days 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!