Сумма чисел Фибоначчи Опции

[Jangle]

Задание 2. Числа Фибоначчи (fn) определяются формулами: f0 = f1;
f1 = 1; fn = fn-1 + fn-2 при n = 2, 3, …, т.е. это бесконечная последовательность чисел вида:
1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, …
Определить: сумму первых чисел Фибоначчи, такиз, что значение суммы не превышает диапазона типа Integer (LonLongInt).

Спасибо за помощь!

[mamont001]

ответ простой:
GOTO FAQ

[Jangle]

uses crt;
Var Fib1, Fib2 : longint;
Buf,i,s:longint;
Begin
clrscr;
Fib1 := 1; Fib2 := 1;I:=1;S:=2;
repeat
begin
Buf := Fib2;
Fib2 := Fib2 + Fib1;
Fib1 := Buf;
S:=S+fib2;
i:=i+1;
end;
until s>32767;
s:=s-fib2;
Writeln('itog=',s,'  ',i);
readkey;
end.

Подумал. Может так? Люди help!

[hiv]

Может так? Люди help!

Так, только вот так красивее:

uses crt;
Var Fib1, Fib2 : longint;
    Buf,i,s:longint;
Begin
  clrscr;
  Fib1 := 1; Fib2 := 1;I:=2;S:=2;
  Writeln('nomer=',1:3,'     chislo=',Fib1:6,'     summa=',1:6);
  Writeln('nomer=',i:3,'     chislo=',Fib2:6,'     summa=',s:6);
  repeat
    Buf := Fib2;
    Fib2 := Fib2 + Fib1;
    Fib1 := Buf;
    S:=S+fib2;
    i:=i+1;
    Writeln('nomer=',i:3,'     chislo=',Fib2:6,'     summa=',s:6);
  until s>32767;
  readkey;
end.