Question

Оставить программу Pascal вывода на экран n чисел Фибоначчи

Answer 1

// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
  SeqGen(ReadInteger('n='),1,1,(x,y)->x+y).Println
end.

Тестовое решение:
n= 10
1 1 2 3 5 8 13 21 34 55

Answer 2

Числа Фибоначчи – это элементы числовой последовательности, в которой каждое последующее число равно сумме двух предыдущих.

var a,b,c,i,n: integer;
begin
     write('Введи n = ');
     readln(n);
     a := 0;
     write(a,' ');
     b := 1;
     write(b,' ');
     for i:=3 to n do begin
           write(a+b,' ');
           c := b;
           b := a + b;
           a := c
    end;
end.