Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.