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

Question

Гоша

2 апреля, 08:11

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