Помощь - Поиск - Пользователи - Календарь
Полная версия: Вычислить сумму Фибоначчи
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Goprofast
Пожалуйста, помогите с программным кодом для решения задачи smile.gif

Вычислить сумму первых чисел Фибоначчи, которые не превосходят
1000
Федосеев Павел
program Fibonacci;

var
Sum, Fprev, Fcurr: integer;
begin
Fprev := 0;
Fcurr := 1;
Sum := 0;
repeat
Sum := Sum + Fcurr;
Fcurr := Fcurr + Fprev;
Fprev := Fcurr - Fprev;
until Fcurr > 1000;
writeln(Sum);
end.
Goprofast
Цитата(Федосеев Павел @ 10.04.2018 22:40) *

program Fibonacci;

var
Sum, Fprev, Fcurr: integer;
begin
Fprev := 0;
Fcurr := 1;
Sum := 0;
repeat
Sum := Sum + Fcurr;
Fcurr := Fcurr + Fprev;
Fprev := Fcurr - Fprev;
until Fcurr > 1000;
writeln(Sum);
end.



Благодарю good.gif
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.