fork download
copy 
  1. program grade_system
  2. implicit none
  3. real::grade
  4. read *,grade
  5. if1:if(grade>95.0)then
  6. print *,'The Grade is A.'
  7. else 
  8. if2:if(grade>86.0)then
  9. print *,'The Grade is B.'
  10. else 
  11. if3:if(grade>76.0)then
  12. print *,'The Grade is C.'
  13. else 
  14. if4:if(grade>66.0)then
  15. print *,'The Grade is D.'
  16. else
  17. print *,'Tge Grade is F.'
  18. end if if4
  19. end if if3
  20. end if if2
  21. end if if1
  22. end program
Success #stdin #stdout 0.01s 5276KB
comments (?)
stdin
copy 
89
stdout
copy 
 The Grade is B.
https://ideone.com/jNfZTi
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!