Напишите программку, вычисляющую и выводящую на экран 10 первых членов последовательности
Напишите программку, вычисляющую и выводящую на экран 10 первых членов последовательности Фибоначчи
Задать свой вопросvar
i: Integer;
Af: array [1..10] of Integer;
begin
Af [1] := 1; // 1-ый член ряда равен 1
Af [2] := 1; // 2-ой член ряда равен 1
for i := 3 to 10 do begin // цикл, начинающийся с 3-го члена до заданного (десятого)
Af [i] := Af [i - 2] + Af [i - 1]; // каждый член ряда равен сумме 2-ух прошлых
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.
-
Вопросы ответы
Статьи
Информатика
Статьи
Русский язык.
Геометрия.
Физика.
Русский язык.
Химия.
Математика.
География.
Литература.
Разные вопросы.
Математика.