Question

Напишите программу в паскале,что бы Найти сумму членов арифметической прогрессии, если известны первый член,разность и число членов прогрессии.

Answer 1

Program p1;
Var a,b,c,s,i:integer;
Begin 
Write('Введите первый член прогрессии: '); 
Readln(a); 
Write('Введите разность чисел прогрессии: '); 
Readln(b); 
Write('Введите количество чисел прогрессии: '); 
Readln(c); 
for i:=1 to c do 
Begin   
s:=s+a;   
a:=a+b; 
End; 
Writeln('Сумма членов прогрессии: ',s);
End.

Answer 2

Конечно! Вот пример программы на языке Pascal, которая будет находить сумму членов арифметической прогрессии на основе заданных данных:

program СуммаАрифметическойПрогрессии;

var
  первыйЧлен, разность, числоЧленов, сумма: integer;
  текущийЧлен: integer;

begin
  // Ввод данных
  writeln('Введите первый член арифметической прогрессии: ');
  readln(первыйЧлен);

writeln('Введите разность арифметической прогрессии: ');
  readln(разность);

writeln('Введите число членов арифметической прогрессии: ');
  readln(числоЧленов);

// Вычисление суммы
  сумма := 0;
  текущийЧлен := первыйЧлен;

for i := 1 to числоЧленов do
  begin
    сумма := сумма + текущийЧлен;
    текущийЧлен := текущийЧлен + разность;
  end;

// Вывод результата
  writeln('Сумма членов арифметической прогрессии: ', сумма);
end.

Вы можете скопировать эту программу в свою среду разработки Pascal и запустить ее, чтобы найти сумму членов арифметической прогрессии.