На числа фибоначчи определяются формулами: f0=f1=1, fn=fn-1+fn-2; при n=2,3… найти f - первое число фибоначчи, большее m(m> 1). и ещё это вычислить - сумму всех чисел фибоначчи, которые превосходят 1000.
249
299
Ответы на вопрос:
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.
Популярно: Информатика
-
nick31322.02.2020 22:44
-
Tanya616406.02.2022 13:55
-
алла778102.12.2021 13:54
-
Крекир24.03.2022 08:24
-
Evasionll06.11.2020 15:14
-
Даниил98614.04.2020 16:13
-
ilonaananko20003.03.2023 04:13
-
Daniel20001127.05.2021 17:44
-
Чаромаг22.05.2021 03:10
-
Вупсінь31.05.2021 12:46