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

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

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

Код к задаче: «Найти сумму 30-ти членов последовательности чисел - Pascal ABC»

textual
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.

11   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы