Урок 21. Задача 5.

Урок 21. Задача 5.

Пользователь получает на вход целое положительное число N напишите рекурсивную процедуру, которая выведет все числа Фиббоначи от первого до N-ого

var N, n1, n2 :integer;

procedure inputF(N, n1, n2 :integer);
var i, fib :integer;
begin
  if i < N then
  begin
    write(n1, ' ');
    fib := n1 + n2;
    n1 := n2;
    n2 := fib;
    inputF(N - 1, n1, n2);
  end;
end;

begin
  N := 9;
  n1 := 0;
  n2 := 1;
  inputF(N, n1, n2);
  readln();
end.