Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  asd
Language: FORTRAN
Code:
     program tubos
     integer t(15), n, i, ts
     
        write(*,*)"escolha dentre 1 a 15 tubos"
     read(*,*)n
     
        t(n)=0
     Do i=0,(n-1)
          t(i+1)=2*i
       write(*,*) "o tubo" ,i+1, "contém" ,t(i+1), "grãos."
          ts = ts + t(i+1)
        End Do

        write(*,*) "o número total de grãos é:" ,ts

        stop
     end
          
          
          
          
          
          
          
          
          
          
          
Comments: