Question

Плиз помогите, это паскаль. Составить программу вычисления суммы S=a+a 2 +a 3 +…+a n . а и n вводимые переменные.

Answer 1

var

 s, a, n, i: integer;

 

begin

 s := 0;

 read(a, n);

 for i := 1 to n do

 begin

   s := s + a * i;

 end;

 

 print(s); // если надо

end.

Answer 2

Конечно, я помогу вам написать программу на языке Паскаль для вычисления суммы ряда S = a + a^2 + a^3 + ... + a^n. Вот пример кода:

pascalCopy code
program SumOfPowers;

var
  a, n, i: Integer;
  S: Double;

begin
  // Ввод значений a и n
  Write('Введите значение a: ');
  Readln(a);
  
  Write('Введите значение n: ');
  Readln(n);
  
  S := 0; // Инициализируем сумму
  
  // Вычисление суммы ряда
  for i := 1 to n do
  begin
    S := S + Power(a, i);
  end;
  
  // Вывод результата
  Writeln('Сумма ряда S = ', S:0:2);
end.

Программа запрашивает значение a (основание степени) и значение n (количество членов ряда). Затем она использует цикл for для вычисления и накопления суммы членов ряда в переменной S, используя функцию Power для возведения a в степень i. Наконец, программа выводит результат в виде суммы ряда S.

Обратите внимание, что для работы с вещественными числами используется тип данных Double. Вы можете настроить точность вывода результатов, изменяя форматирование строки Writeln('Сумма ряда S = ', S:0:2);.