Операторы цикла - 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)

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

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