Последовательность Фибоначчи образуется так:
5-9 класс
|
первый и второй члены
последовательности равны 1, каждый следующий равен сумме двух предыдущих (1, 1,
2, 3, 5, 8, 13, ...). Найти
сумму
всех чисел в последовательности Фибоначчи, которые не
превосходят 1000
Var a,a1,a2:integer;
Begin
a1:=1;
while(a<1000) do begin
a:=a1+a2;
a2:=a1;
a1:=a;
writeln(a) end;
End.
Получились числа:
Да-, именно в Паскале)
Другие вопросы из категории
Читайте также
Найдите число M.
программы подаются целые числа, количество введенных чисел неизвестно, последовательность заканчивается числом 0 (0 - признак окончания ввода, не является членом последовательности). Количество чисел не превышает 100. Введенные числа по модулю не превышают 300. Программа должна вывести сумму и количество чисел, кратных 17, или вывести NO, если таких числе в последовательности нет
предыдущих. Получаем, что, например, шестое число равно 8, а десятое - 55.
Требуется написать программу, которая определяет, является ли заданное число числом Фибоначчи.
Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не является членом последовательности). Количество чисел не превышает 100. Введённые числа по модулю не превышают 300. Программа должна вывести среднее арифметическое чисел, кратных 9, или вывести NO, если таких чисел в последовательности нет.