Question

Напишите в Паскале программу на нахождение суммы чисел арифметической прогрессии с 50 по 150 член, если a1=1, d=0,6. Формула арифметической прогрессии Sn=(a1+an)*n/2. Очень нужно. Заранее спасибо.

Answer 1

Var
a1,d:real;
Begin
Write('a1 = ');ReadLn(a1);
Write('d = ');ReadLn(d);
WriteLn('S(150) - S(50) = ',(2*a1+d*149)*75-(2*a1+d*49)*25);
End.