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.

Answer 2

Конечно, вот пример программы на языке Pascal ABC, которая вычисляет сумму членов арифметической прогрессии:

pascalCopy code
program ArithmeticProgressionSum;

var
  a1, d, n: Integer;
  S: Integer;

begin
  Write('Введите первый член прогрессии (a1): ');
  ReadLn(a1);

  Write('Введите знаменатель прогрессии (d): ');
  ReadLn(d);

  Write('Введите число членов прогрессии (n): ');
  ReadLn(n);

  S := (2 * a1 + (n - 1) * d) * n div 2;

  WriteLn('Сумма членов прогрессии S = ', S);
end.

Программа запрашивает у пользователя значения первого члена прогрессии a1, знаменателя d и числа членов прогрессии n. Затем она использует формулу для вычисления суммы арифметической прогрессии:

$S = \frac{n}{2} \cdot (2 \cdot a1 + (n - 1) \cdot d)$

и выводит полученное значение суммы S.

Обратите внимание, что данная программа предполагает, что вводимые значения будут целыми числами.