Найти первое число Фибоначчи, большее заданного - VB

Формулировка задачи:

Дано целое число N (> 1). Найти первое число Фибоначчи, большее N


textual

Код к задаче: «Найти первое число Фибоначчи, большее заданного - VB»

Function fibo(n As Long) As Long
    Dim a As Long, b As Long
    a = 1
    While n >= a
        a = a + b
        b = a - b
    Wend
    fibo = a
End Function
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

12   голосов, оценка 4.083 из 5

Источник
Похожие ответы