Помогите решить задачу в Паскале

[NAt]

Помогите решить задачу в Паскале

Числа Фибоначчи определяются формулами: f(0)=2; f(1)=2, f=f(n-1)+f(n-2) при n=2,3… Вычислить сумму всех чисел Фибоначчи, которые не превосходят 1000. Помогите пожалуйста разобраться)

 

[Léon1]

NAt, глянь эту тему - http://www.tehnari.ru/f43/t60684/ (здесь похожая задача и теория есть).

 

[AlexZir]

Последовательность Фибоначчи начинается с 1, а не с двойки!
1, 1, 2, 3, 5, 8, 13, 21, 34...

Что-то у вас с заданием не в порядке.

 

[Gruvi]

Последовательность Фибоначчи начинается с 1, а не с двойки!
1, 1, 2, 3, 5, 8, 13, 21, 34...

Что-то у вас с заданием не в порядке.

Вот тебе решение для ПРАВИЛЬНОГО алгоритма:

Program SummaFib;
Uses Crt;
Var M, {заданное число }
F0, F1, F2, {три последовательных числа Фибоначчи}
S : Integer; {сумма чисел Фибоначчи}

BEGIN
ClrScr;
Write(’Введите натуральное М : ’);
ReadLn(M);

F0:=1; F1:=1; F2:=2;
S:=4; {4 – сумма первых трех чисел Фибоначчи}
Write(’Числа Фибоначчи, не превосходящие ’, M, ’ :’, F0:4, F1:4);
While F2<=M do
begin
F0:=F1; F1:=F2; Write(F1 : 4);
F2:=F0+F1; S:=S+F2;
end;
S:=S–F2; {вычитание из суммы последнего числа, которое превосходит М}

WriteLn; WriteLn;
WriteLn(’О т в е т : Сумма этих чисел равна ’, S); ReadLn
END.