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

Программа должна быть написана на Pascal.

Question

Информатика

Айтулы

12 марта, 13:26

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

Программа должна быть написана на Pascal.

+5

Ответы (1)

Знаешь ответ?

Нохой · 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.