Найти сумму 10 членов арифметической прогрессии A, A+D, A+2D, ..., где А - первый член прогрессии, D - постоянное слагаемое, разность прогрессии. Паскаль

Question

Валяка

23 января, 10:33

+5

Ответы (1)

Знаете ответ на вопрос?

Сарра · Answer 1

Var

a, d, s, i:integer;

begin;

readln (a) ;

readln (d) ;

for i:=0 to 9 do

s:=s+a+d*i;

writeln (s) ;

end.