Блог для маленьких школьников и их родителей
ШколаЛа

Числа Фабоначчи определяются как a(0)=1; a(1)=1; a(i)=a(i-1)+a(i-2).Найти десятое число Фабоначчи ….

Автор:
Предмет: Информатика
Уровень: 5 - 9 класс

Числа Фабоначчи определяются как a(0)=1; a(1)=1; a(i)=a(i-1)+a(i-2).Найти десятое число Фабоначчи . Найти : a) N-ое число Фабоначчи . б)сумму первых N чисел Фабоначчи .

Ответов к вопросу: 1
  • skinyusskinyuns
    10.11.2024 | 19:05

    program FibonachiNums;

    function FibN(n: integer): BigInteger;

    begin

     var (f1, f2) := (BigInteger(1), BigInteger(1));

     for var i := 3 to n do

       (f1, f2) := (f2, f1 + f2);

     result := f2;

    end;

    function FibSumN(n: integer): BigInteger;

    begin

     var (f1, f2) := (BigInteger(1), BigInteger(1));

     var Sum: BigInteger;

     

     if n = 0 then Sum := 0

     else Sum := 1;

     

     for var i := 2 to n do

     begin

       (f1, f2) := (f2, f1 + f2);

       Sum += f1;

     end;

     

     result := Sum

    end;

    begin

     Println(‘десятое число Фибоначчи:’,FibN(10));

     

     var n := 100;

     Writeln($'{n}-е число Фибоначчи: ‘,FibN(n));

     

     Println($’Сумма первых {n} чисел Фибоначчи:’,FibSumN(n))

     

    end.

Ответить на вопрос:
:p :-p 8) 8-) :lol: =( :( :-( :8 ;) ;-) :(( :o:
Нажимая на кнопку я даю согласие на обработку персональных данных и принимаю политику конфиденциальности.