Дано целое число N (N>1). Сформировать и вывести целочисленную последовательность из N чисел Фибоначчи по правилу: первые 2 элемента равны 1, а каждое следующее, начиная с третьего, равно сумме двух предыдущих.

// Примечание: В задании не сказало создать массив, мы его и не создаем!
program fibonachi;
var n, x1, x2, xs, i:integer;
beginx1:=1;
x2:=1;
write (Введите число N = );
readln (n);
write (x1, , x2, );
for i:=3 to n do
   begin
    xs:=x1+x2;
    write (xs, );
    x1:=x2;
    x2:=xs;
  end;
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.