Кроссворд информатика , очень надо )

Question

Информатика: Кроссворд информатика , очень надо )

danilworld · Accepted Answer

//PascalABC.NET 3.2 сборка 1318 //Вариант по формуле Бине Var   n,fibn:real;   i:integer; begin readln(n); if n =0 then writeln( Не существует чисел Фиббоначи меньше 0 ) else   begin   i:=0;     while fibn n do       begin         fibn:=(power((1+sqrt(5))/2,i)-power((1-sqrt(5))/2,i))/sqrt(5);         inc(i);       end;    writeln((power((1+sqrt(5))/2,i)-power((1-sqrt(5))/2,i))/sqrt(5)-1);      end;  end. //В лоб Var   sum,n,buf,fib0,fib1:integer;    function fibb(fib0,fib1:integer):integer;   begin...

MOGZ ответил