Регистрация
Alinazonova
13.03.2020 10:40
Информатика
Есть ответ 👍

Решите на паскале . числа фибоначчи определяются как а(0)=1, а(1)=1, а(i)= a(i-1)+a(i-2). найти десятое число фибоначчи .найти : a)n-ое число фибоначчи б)сумму первых n чисел фибоначчи

223
402
Посмотреть ответы 2

Ответы на вопрос:

макс3102
макс3102
4,7(83 оценок)

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.

teta89p016as
teta89p016as
4,4(99 оценок)
Var     a,b: real; begin write('a = '); readln(a); write('b = '); readln(b); writeln((a*4*b)*(a-3*b)+a*a) end.

Популярно: Информатика