AnonymousEng

Fabonaci series - 5a (133)

Jan 14th, 2013
52
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.       DIMENSION A(50)
  2.       A(1) = 0
  3.       A(2) = 1
  4.      
  5.       DO 10 i=3,50
  6.          A(i)=A(i-1)+A(i-2)
  7.       CONTINUE
  8.      
  9.       WRITE(*,*)(A(j),j=1,50)
  10.      
  11.       PAUSE
  12.       STOP
  13.       END
Advertisement
Add Comment
Please, Sign In to add comment