Advertisement
smay

Untitled

Feb 10th, 2016
63
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.22 KB | None | 0 0
  1. program fibonachchi;
  2.  
  3. function fib(n:integer): longint;
  4. begin
  5. if n<2 then fib:=1
  6. else fib:=fib(n-1)+fib(n-2);
  7. end;
  8.  
  9.  
  10. var i,n:integer;
  11. begin
  12. readln(n);
  13. for i:=1 to n do writeln('fib(', i, ') = ', fib(i) );
  14. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement