Question

Напишите программу, вычисляющую и выводящую на экран 10 первых членов последовательности Фибоначчи

Answer 1

var

 i: Integer;

 Af: array [1..10] of Integer;

begin

 Af [1] := 1;   // первый член ряда равен 1

 Af [2] := 1;   // второй член ряда равен 1

 for i := 3 to 10 do begin   // цикл, начинающийся с 3-го члена до заданного (десятого)

   Af [i] := Af [i - 2] + Af [i - 1];   // каждый член ряда равен сумме двух предыдущих

 end;

 for i := 1 to 10 do begin   // вывод на экран первых 10 членов ряда

   Write (Af [i], ', ');

 end;

end.

// ------ 2-й вариант (без использования массива) ---------

var

 a, b, c, i: Integer;

begin

 a := 1;

 Write (a, ', ');

 b := 1;

 Write (b, ', ');

 for i := 3 to 10 do begin

   c := a + b;

   Write (c, ', ');

   a := b;

   b := c;

 end;

end.

Answer 2

Конечно, вот пример программы на языке Python, которая вычисляет и выводит на экран первые 10 членов последовательности Фибоначчи:

pythonCopy code
def fibonacci_sequence(n):
    sequence = [0, 1]
    for i in range(2, n):
        next_number = sequence[i-1] + sequence[i-2]
        sequence.append(next_number)
    return sequence

# Вычисляем первые 10 членов последовательности Фибоначчи
n = 10
fibonacci_numbers = fibonacci_sequence(n)

# Выводим результат на экран
print("Первые 10 членов последовательности Фибоначчи:")
print(fibonacci_numbers)

Этот код определяет функцию fibonacci_sequence(n), которая вычисляет первые n членов последовательности Фибоначчи. Затем, мы вызываем эту функцию для n = 10 и выводим результат на экран. Результатом будет список из первых 10 чисел Фибоначчи: [0, 1, 1, 2, 3, 5, 8, 13, 21, 34].