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 result:=fib0+fib1; end;
begin fib0:=0; fib1:=1; readln(n); if n<=0 then writeln('Не существует чисел Фиббоначи меньше 0') else begin if fibb(fib0,fib1)>=n then sum:=0 else begin while fibb(fib0,fib1)<n do begin buf:=fib1; fib1:=fibb(fib0,fib1); fib0:=buf; end; sum:=fibb(fib1,fibb(fib0,fib1))-1; end; writeln(sum); end; end.
#include <iostream>
double multiply(double num1, double num2) {
if (num2 > 0) return num1 + multiply(num1, num2 - 1);
else if (num2 < 0) return -num1 + multiply(num1, num2 + 1);
return 0;
}
signed main() {
//2.2 * 2
std::cout << multiply(2.2, 2) << std::endl;
//4 * 2
std::cout << multiply(4, 2) << std::endl;
//-8 * 2
std::cout << multiply(-8, 2) << std::endl;
//0*1
std::cout << multiply(0, 1) << std::endl;
return 0;
}