Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  EX08084
Language: FORTRAN
Code:
     program ex06084
        implicit none 
        real I,J,E,F,G
        integer M,N,O,P
        read (*,*) I,J,E,F,N,O
        I=I+1
        I=I**3+J
        G=max(E,F)
        M=MOD(N,10)*10+N/10
        P=MOD(O-MOD(0,10),100)+MOD(O,10)*100+N/100
        write(*,*) "I=",I
        write(*,*) "max(E,F)=",G
        write(*,*) "M=",M
        write(*,*) "P=",P
        end          
          
Comments: