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.

Answer 2

Конечно! Вот программа на языке Паскаль для нахождения суммы чисел арифметической прогрессии с 50 по 150-й член:

program Нахождение_Суммы_Арифметической_Прогрессии;

var
  a1, an, d, n, Sn: real;

begin
  a1 := 1; // первый член прогрессии
  d := 0.6; // разность прогрессии
  
  n := (150 - 50 + 1); // количество членов прогрессии
  
  an := a1 + (n - 1) * d; // вычисление последнего члена прогрессии
  
  Sn := (a1 + an) * n / 2; // вычисление суммы прогрессии
  
  writeln('Сумма чисел арифметической прогрессии с 50 по 150 член равна: ', Sn);
end.

Программа вычисляет сумму чисел арифметической прогрессии, где `a1` равно 1, `d` равно 0.6, и прогрессия состоит из 150 членов, начиная с 50-го. Результат будет выведен на экран.

Надеюсь, это поможет! Если у вас возникнут еще вопросы, не стесняйтесь задавать.