Mode:
Duration:
1
2
3
4
5
6
7
8
9
10
11
program Fibonacci
integer :: fib0 = 0, fib1 = 1, next, i
print *, fib0
print *, fib1
do i = 3, 10
next = fib0 + fib1
print *, next
fib0 = fib1
fib1 = next
end do
end program FibonacciCoding works best on desktop or with an external keyboard.