Дано целое число N (N>1). Сформировать и вывести целочисленную последовательность из N...

Question

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

Answer 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.

Answer 2

Program z;
var a:array[1..1000] of integer; i,n:integer;
begin
write('Введите N (N>1, N<=1000)');<br>read(n);
a[1]:=1;
a[2]:=1;
write(a[1], ' ', a[2], ' ');
for i:=3 to n do
begin
a[i]:=a[i-2]+a[i-1];
write(a[i], ' ');
end;
end.

Comments

Ну вот с массивом. Правда тут ограничение на 1000 чисел