Question

Не пользуясь формулой суммы найти сумму членов геометрической прогрессии заданной начальным членом, количеством членов прогрессии и ее знаменателем. Используйте для решений цикл с шагом. ( PascalABC.NET )

Answer 1

// PascalABC.NET 3.3, сборка 1599 от 17.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var (a,q):=ReadReal2('Введите начальный член и знаменатель:');
  var n:=ReadInteger('Введите количество членов прогрессии:');
  var s:=a;
  for var i:=2 to n do begin a*=q; s+=a end;
  Writeln('Сумма членов прогрессии равна ',s)
end.

Пример
Введите начальный член и знаменатель: 1.25 0.13
Введите количество членов прогрессии: 15
Сумма членов прогрессии равна 1.43678160919533