fork download
copy 
  1. program st
  2. real::a,b,res
  3. read *,a,b
  4. if(a>0.AND.b>0)then
  5. res=a+b
  6. print *,res
  7. else if(a>0.AND.b<0)then
  8. res=a+b*b
  9. print *,res
  10. else if(a<0.AND.b>0)then
  11. res=a*a+b
  12. print *,res
  13. else
  14. res=a*a+b*b
  15. print *,res
  16. end if
  17. end program
Success #stdin #stdout 0s 5316KB
comments (?)
stdin
copy 
4
5
2
4
stdout
copy 
   9.00000000
https://ideone.com/SQQm93
language:
Fortran (gfortran 8.3)
created:
1 day 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!