SUM

 !Program name: SUM

!Summation from 1 to 100

integer::i,sum

sum=0

Do i=1,100

  sum=sum+i

End do

Print *,'Sum(1-100)= ',sum

Stop

End

Comentários

Postagens mais visitadas deste blog

HYDROGEN-RADIAL

HYDROGEN-POTENTIAL

ONE_PART_QHO