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

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

Question

Информатика

Розантина

23 апреля, 23:49

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

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

+1

Ответы (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.