Найти сумму 30-ти членов последовательности чисел - Pascal ABC

Формулировка задачи:

Дано числовую последовательность (100, 97, 94, ...). Найти сумму 30-ти членов последовательности чисел

Решение задачи: «Найти сумму 30-ти членов последовательности чисел»

Листинг программы

var a1,d,i,summa:integer;
begin a1:=100; d:=-3;
for i:=1 to 30 do 
begin
summa:=summa+a1;
a1:=a1+d;
end;
write(summa);
end.

Объяснение кода листинга программы

В данном коде используется язык программирования Pascal ABC. Постановка задачи заключается в том, чтобы найти сумму 30-ти членов последовательности чисел. Переменные в коде объявлены следующим образом:

a1, d, i: переменные типа integer (целые числа)
summa: переменная типа integer Далее следует цикл for, который выполняется 30 раз. Внутри цикла переменная summa инициализируется суммой первых двух членов последовательности: summa := summa + a1. Затем значение переменной a1 увеличивается на значение переменной d. После завершения цикла, значение переменной summa выводится на экран с помощью команды write. Таким образом, данный код позволяет найти сумму первых 30 членов последовательности чисел, начиная с чисел 100 и -3.