Ответы на вопрос:
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.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
lera105908.06.2023 09:21
-
ерикос31.07.2020 15:14
-
Lartenok27.12.2021 01:59
-
Колобокхоёк20.06.2022 05:45
-
Qulya1505.05.2022 08:39
-
masyanyapar06.03.2021 14:44
-
Soniasizova19.04.2020 09:17
-
arihadid10.07.2021 02:45
-
64bl9j812.12.2021 00:39
-
Sonya121s19.09.2021 12:17
![Caktus Image](/tpl/img/cactus.png)
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.