Question

СРОЧНО!!!! Составьте блок-схему и алгоритм к задаче. Найти сумму 100 чисел последовательности 1,5,9,13,17,....

Answer 1

Var a,s,i:integer;
begin
a:=1-4;
s:=0;
for i:=1 to 100 do
 begin
 a:=a+4;
 s:=s+a;
 end;
writeln('s = ',s);
end.

Результат:
s = 19900

Answer 2

Блок-схема:

markdownCopy code
┌──────────────────┐
│   Начало        │
└──────────────────┘
          │
          ▼
┌──────────────────┐
│   Инициализация │
└──────────────────┘
          │
          ▼
┌───────────────────┐
│   Объявление      │
│   переменных     │
└───────────────────┘
          │
          ▼
┌───────────────────┐
│   Инициализация  │
│   счётчика и     │
│   суммы          │
└───────────────────┘
          │
          ▼
┌───────────────────┐
│  Цикл:           │
│  - Вычисление    │
│    следующего    │
│    числа        │
│  - Проверка      │
│    условия       │
│  - Обновление    │
│    счётчика и    │
│    суммы         │
└───────────────────┘
          │
          ▼
┌───────────────────┐
│  Вывод результата│
└───────────────────┘
          │
          ▼
┌───────────────────┐
│   Конец          │
└───────────────────┘

Алгоритм:

1. Инициализировать переменные: сумма = 0, счётчик = 1.
2. Запустить цикл с условием, что счётчик не превысил 100.
3. Внутри цикла:
   • Добавить текущее значение счётчика к сумме.
   • Увеличить счётчик на 4 (так как последовательность увеличивается на 4 на каждом шаге).
4. Вывести значение суммы.
5. Конец.

Примечание: Для более подробного описания алгоритма можно добавить конкретные инструкции на выбранном языке программирования (например, инициализация переменных, цикл и вывод результата).