Как правило, два первых члена последовательности Фибоначчи принимают за 1 и 1, но в приведенной ниже программе предлагается ввести произвольные начальные два числа. Только будьте осторожны, поскольку члены последовательности быстро возрастают.
program Fibonachi;
var
A: array[1..100] of integer;
N, i: integer;
begin
write('Количество членов последовательности: N = ');
readln(N);
write('Введите два первых члена последовательности: ');
readln(a[1], a[2]);
writeln('Первые ', N, ' членов:');
write(a[1],' ',a[2]);
for i := 3 to N do
begin
a[i] := a[i - 1] + a[i - 2];
write(' ', a[i])
end;
readln
end.
**type** integer;
: Представляет 32-битовое целое число со знаком.Диапазон значений: -2 147 483 648 .. 2 147 483 647**type** integer;
: Представляет 32-битовое целое число со знаком.Диапазон значений: -2 147 483 648 .. 2 147 483 647