Операторы цикла - VB
Формулировка задачи:
Дано натуральное число k. Напечатайте k-ую цифру последовательности 1123581321..., в которой выписаны подряд все числа Фибоначчи.
У нас ничего подобного в демонстрационных примерах нет. Помогите, пожалуйста
Решение задачи: «Операторы цикла»
textual
Листинг программы
fiboStr = "11" a1 = 1 a2 = 1 k = 10 Do While k >= Len(fiboStr) fiboStr = fiboStr & a1 + a2 a2 = a2 + a1 a1 = a2 - a1 Loop MsgBox Mid(fiboStr, k, 1)
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д