Question

Составьте пожалуйста программу вычисления функции

Answer 1

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

begin
  var n:=ReadInteger('n=');
  var b:=ReadReal('b=');
  Writeln('S=',(b-1)*(Range(1,n).Select(i->1/(i+2)).Sum):0:5)
end.

Пример
n= 20
b= 2.37
S=3.00141