Advertisement
Guest User

Untitled

a guest
Nov 19th, 2017
51
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.44 KB | None | 0 0
  1. program Fib;
  2. var
  3.   f1, f2, f3, n, i: int64;
  4.   fin, fout: text;
  5. begin
  6.   assign (fin, 'input.txt');
  7.   reset (fin);
  8.   assign (fout, 'output.txt');
  9.   rewrite (fout);
  10.   read(fin, n);
  11.   f1 := 0;
  12.   f2 := 1;
  13.   if n = 1  then
  14.     write(fout, 0)
  15.   else
  16.     write(fout, f1, ' ', f2, ' ');
  17.   for i := 2 to n - 1 do
  18.   begin
  19.     f3:= f1 + f2;
  20.     f1:= f2;
  21.     f2:= f3;
  22.     write (fout, f3, ' ');
  23.   end;
  24.   close(fin);
  25.   close(fout);
  26. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement