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

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

Задать свой вопрос
Виолетта Гайдучкина
Непременно функцию? Либо может быть функцию?
1 ответ

function FibN(n: integer): Listlt;Bigintegergt;;

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.

Злата Гетке
При вводе "6" выводит "1 1 2 3 5 8", а необходимо "1 2 3 5 8 13".
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт