Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program Fib;
- var
- f1, f2, f3, n, i: int64;
- fin, fout: text;
- begin
- assign (fin, 'input.txt');
- reset (fin);
- assign (fout, 'output.txt');
- rewrite (fout);
- read(fin, n);
- f1 := 0;
- f2 := 1;
- if n = 1 then
- write(fout, 0)
- else
- write(fout, f1, ' ', f2, ' ');
- for i := 2 to n - 1 do
- begin
- f3:= f1 + f2;
- f1:= f2;
- f2:= f3;
- write (fout, f3, ' ');
- end;
- close(fin);
- close(fout);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement