Найти первое число Фибоначчи, большее заданного - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д