Question

Составить программу на языке Pascal ABC, которая находит сумму членов S арифметической прогрессии, если известны её первый член a1, знаменатель d и число членов прогрессии n.

Answer 1

var

a1,d,n:integer;

sum:real;

begin

 writeln('a1, d, n');

 readln(a1,d,n);

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

 writeln('Sum: ', sum);

end.