编程求出斐波那契数列中第一个大于10000的元素.要求 使用Fortran中的循环分别编程实现

编程求出斐波那契数列中第一个大于10000的元素.要求 使用Fortran中的循环分别编程实现

Program Main
Implicit None
Integer :: i , j , k
i = 0
j = 1
Do
k = i + j
if ( k > 10000 ) then
write( * , * ) 'result=' , k
Exit
end if
i = j
j = k
End Do
End Program Main