Последовательность 1, 1, 2, 3, 5, 8, …, в которой каждый член, начиная с третьего, равен сумме двух предыдущих членов, называется последовательностью Фибоначчи. Для заданного n найти n – ое число Фибоначчи. До какого значения n мы получим верный результат?
Для получения следующего числа Фибоначчи необходимо иметь два предыдущих значения. В нашей программе это b и a. В начале они равны 1 (строка 7). Цикл мы начинаем с 3-го числа и продолжаем до n (строка 8). Получение новой пары чисел Фибоначчи – нового значения и предыдущего значения осуществляется в строках 10, 11.
Как и в случае с задачей 22 (вычисления факториала) здесь интересен рост значений чисел этой последовательности. Так при объявлении b,a:integer; (строка 3) правильный результат мы получим до n=46 (включительно). При объявлении b,a:int64; - до n=92. Проверьте границы верных значений при объявлениях b,a:double; b,a:extended; Заметим, что 500-ое число Фибоначчи имеет 105 цифр, а 1000-ое – 209 цифр.