Question

Напечатать последовательность чисел фибоначчи 1, 1, 2, 3, 5 и т.д., где каждое число равно сумме двух предыдущих: ровно n чисел.

Answer 1

Program Fibonacci;
var
  p, q, r, i, n: integer;
begin
  write('Alphaeus asks: please enter n = ');
  readln(n);
  p := 1;
  writeln(p);
  q := 1;
  writeln(q);
  for i:=3 to n do begin
    r := p+q;
    writeln(r);
    p := q;
    q := r
  end;
end.

Answer 2

Program Fibonacci;
Uses Crt;
var i, n:integer;
{Итерационный метод вычисления чисел Фибоначчи}
function fib_it(n:integer):integer;
var a,b,c,i:integer;
begin
a:=1;b:=1;
if (n=1) or (n=2) then fib_it:=1
else begin
            for i:=3 to n do 
                 begin
                   c:=a+b
                   a:=b;
                 b:=c; 
               end;  
     fib_it:=c;
   end;  

end;

{main program}
begin
    clrscr;
    write('Введите n: ');
   readln(n);
    for i:=1 to n do write(fib_it(i),' '); 
     readkey;
end.