ВВЕРХ
ВНИЗ
  • Home
  • Array
  • Последовательность Фибоначчи

Последовательность Фибоначчи








Как правило, два первых члена последовательности Фибоначчи принимают за 1 и 1, но в приведенной ниже программе предлагается ввести произвольные начальные два числа. Только будьте осторожны, поскольку члены последовательности быстро возрастают.

Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
14  
15  
16  
17  
18  
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.


Яндекс.Метрика