С клавиатуры вводится число. Вывести ** экран столько элементов ряда Фибоначчи, сколько...

Question

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

Comments

Обязательно функцию? Или может быть процедуру?

Answer 1

function FibN(n: integer): List;

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.

Comments

При вводе "6" выводит "1 1 2 3 5 8", а нужно "1 2 3 5 8 13".