Question

написать программу на языке Паскаль для вычисления суммы s=2+4+8+16+32+64+128+256+512 использовать формулу подсчета суммы геометрической прогрессии

Answer 1

begin

 var (b, q, n) := (2, 2, 9);

 var S := b * (1 - q ** n) / (1 - q);

 Write($'Сумма первых {n} членов: S = {S}')

end.

Answer 2

Для вычисления суммы геометрической прогрессии с использованием формулы подсчета суммы геометрической прогрессии в Pascal, вы можете использовать следующий код:

pascalCopy code
program SumGeometricProgression;
var
  a, r, n, s: double;
begin
  // Задаем начальное значение 'a'
  a := 2.0;

  // Задаем знаменатель 'r' (в данном случае, 2)
  r := 2.0;

  // Задаем количество элементов 'n' (в данном случае, 9)
  n := 9;

  // Вычисляем сумму геометрической прогрессии
  s := a * (1 - Power(r, n)) / (1 - r);

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

В этом коде мы используем формулу для суммы геометрической прогрессии, где a - первый член прогрессии, r - знаменатель прогрессии, n - количество элементов в прогрессии. Значения a, r и n устанавливаются в соответствии с вашей задачей, и результат выводится на экран.