** паскале!! Числа Фибоначчи определяются формулами: f0=f1=1, fn=fn-1+fn-2; при n=2,3…...

Question

На паскале!! Числа Фибоначчи определяются формулами: f0=f1=1, fn=fn-1+fn-2; при n=2,3… Найти f - первое число Фибоначчи, большее m(m>1). и ещё это Вычислить - сумму всех чисел Фибоначчи, которые превосходят 1000.

Comments

"Вычислить - сумму всех чисел Фибоначчи, которые превосходят 1000." - я думаю там НЕ превосходят, потому что если как у Вас - этих чисел бесконечно много.

Answer 1

Program NoName;

var
a:array [1..3000] of integer;
b,c,i,n:integer;
Begin
WriteLn('введіть кількість чисел');
ReadLn( n );
a[1]:=1;
a[2]:=1;
b:=0;
WriteLn('Список ',n,' чисел Фібоначі');
WriteLn(a[1]);
WriteLn(a[2]);
for i:= 3 to n do
begin
a[i]:=a[i-2]+a[i-1];
b:=b+a[i];
WriteLn(a[i]);
end;
b:=b+a[1]+a[2];
WriteLn('Сума усіх чисел Фібоначі становить ',b);
end.

Comments

попробуй так

---

конечно можеш немного ввод вивод редактировать