Составить программу вычисления суммы n первых членов арифметической прогрессии по первому ее члену и разности

1

Ответы и объяснения

  • Kitsu
  • почетный грамотей
2012-12-24T08:18:10+00:00

var n:integer;

s,a1,d:real;

begin

readln(a1,d,n);

s:=(2*a1*n+d*n*(n-1))/2;

writeln(s);

end.