fork(3) download 
  1. function fibo(M,N,R:integer):integer;
  2. var x:real;
  3. begin
  4.  if (N=1) then fibo:=0
  5.  else if (N=2) then fibo:=1
  6.  else begin
  7.    x:=M*1.618;
  8.    if N=(R+2) then fibo:=M
  9.    else fibo:=fibo(round(x),N,R+1);
  10.  end;
  11. end;
  12.  
  13. var N : integer;
  14.  
  15. begin
  16.   readln(N);
  17.   writeln(fibo(1,N,0));
  18. end.
Success #stdin #stdout 0s 3220KB
comments (?)
stdin 
Standard input is empty
stdout 
-27730
https://ideone.com/TMltAX
language:
Pascal (fpc 3.0.4)
created:
10 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!