fork download
copy 
  1. program grade_system
  2. implicit none
  3. real::grade
  4. read *,grade
  5. if(grade>95.0)then
  6. print *,'The Grade is A.'
  7. else if(grade>86.0)then
  8. print *,'The Grade is B.'
  9. else if(grade>76.0)then
  10. print *,'The Grade is C.'
  11. else if(grade>66.0)then
  12. print *,'The Grade is D.'
  13. else
  14. print *,'Tge Grade is F.'
  15. end if
  16. end program
Success #stdin #stdout 0s 5320KB
comments (?)
stdin
copy 
50
stdout
copy 
 Tge Grade is F.
https://ideone.com/8h6KAm
language:
Fortran (gfortran 8.3)
created:
17 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!