Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Вычислить сумму Фибоначчи

Автор: Goprofast 11.04.2018 1:01

Пожалуйста, помогите с программным кодом для решения задачи smile.gif

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

Автор: Федосеев Павел 11.04.2018 2: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.

Автор: Goprofast 11.04.2018 3:16

Цитата(Федосеев Павел @ 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