Последовательность Фибоначчи
Как правило, два первых члена последовательности Фибоначчи принимают за 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. |
|