Question

С клавиатуры вводится число. Вывести на экран столько элементов ряда Фибоначчи, сколько указал пользователь. Вычисление ряда организовать в функцию. Например, если на ввод поступило число 6, то вывод должен содержать шесть первых чисел ряда Фибоначчи: 1 2 3 5 8 13.
Программа должна быть написана на Pascal.

Answer 1

function FibN(n: integer): List<Biginteger>;

begin

 var (f1, f2) := (BigInteger(1), BigInteger(1));

 result := Lst(Seq(f1, f2));

 for var i := 3 to n do

 begin

   (f1, f2) := (f2, f1 + f2);

   result.Add(f2)

 end;

end;

begin

 FibN(ReadInteger()).Println

end.