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