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

Узнай цену своей работы

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

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

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

textual
Листинг программы 
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

ИИ для рефератов и докладов

  • Экспорт Word по ГОСТу
  • Минимум 80% уникальности текста
  • Поиск релевантных источников в интернете
  • Готовый документ за 2 минуты

Оцени полезность:

12   голосов , оценка 4.083 из 5
Похожие ответы