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

Ответы 3

  • попробуй так
  • конечно можеш немного ввод вивод редактировать
    • Автор:

      preston31
    • 6 лет назад
    • 0
  • 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.
    • Автор:

      deborah
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years