Задание:
Последовательность Фибоначчи образуется так: первый и второй члены последовательности равны 1, каждый следующий равен сумме двух предыдущих (1, 1, 2, 3, 5, 8, 13, …). Найти сумму всех чисел в последовательности Фибонач чи, которые не превосходят 1000
Решение:
Var a,a1,a2: integer; Begina1: =1; while (a<1000) do begin a: =a1+a2; a2: =a1; a1: =a; writeln (a) end; End. Получились числа: 1 2 3 5 8 13 21 34 55 89 144 233 377 610 987
Знаете другой ответ?