fork download
copy 
  1. program ideone;
  2.  
  3. {
  4. 1: 1
  5. 2: 1
  6. 3: 2 =1+1
  7. 4: 3 =1+2
  8. 5: 5
  9. 6: 8
  10. F(7): 13
  11. }
  12.  
  13. var
  14.   f1, f2, fnowy, n, i: longint;
  15. begin
  16.   f1:=1;
  17.   f2:= 1;
  18.   n:=7;
  19.   i:=3;
  20.   while i<=n do
  21.   begin
  22.     fnowy := f1 + f2;
  23.     writeln('>> f1 = ', f1, ' f2 = ', f2, ' fnowy = ', fnowy);
  24.     f1 := f2;
  25.     f2 := fnowy;
  26.     i := i+1;
  27.   end;
  28.  
  29.   writeln(' F(',n,')= ', f2);
  30.  
  31. end.
Success #stdin #stdout 0s 5276KB
comments (?)
stdin
copy 
6
stdout
copy 
>> f1 = 1 f2 = 1 fnowy = 2
>> f1 = 1 f2 = 2 fnowy = 3
>> f1 = 2 f2 = 3 fnowy = 5
>> f1 = 3 f2 = 5 fnowy = 8
>> f1 = 5 f2 = 8 fnowy = 13
 F(7)= 13
https://ideone.com/YL6Xuf
language:
Pascal (fpc 3.0.4)
created:
7 days 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!