• Информатика Паскаль Последовательность Фибоначчи образуется так: первый и второй члены последовательности равны 1, каждый следующий равен сумме двух предыдущих (1, 1, 2, 3, 5, 8, 13, ...). Найти:

    а) первое число в последовательности Фибоначчи, большее n (значение n вводится с клавиатуры; n > 1);

    б) сумму всех чисел в последовательности Фибоначчи, которые не превосходят 1000.

Ответы 1

  • // PascalABC.NET 3.2, сборка 1457 от 29.05.2017// Внимание! Если программа не работает, обновите версию!function Fib1(n:integer):integer;begin  var f1:=1; var f2:=1;  while f2<=n do (f1,f2):=(f2,f1+f2);  Result:=f2end;function FibSum(k:integer):integer;begin  Result:=1;  var f1:=0; var f:=1;  while true do begin    (f1,f):=(f,f1+f);    if Result+f>=k then Break    else Result+=f    endend;begin  Writeln(Fib1(ReadInteger('n=')));  Writeln(FibSum(1000))end.Примерn= 1242117711986
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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