Question

ДАЮ 20 БАЛЛОВ
НА ПАСКАЛЕ
Срочно помогите написать 2 программу.

Answer 1

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

begin
  var x:=ReadReal('x=');
  Writeln('S=',SeqGen(17,i->(i+1)*Sqrt(x)/(x+3+i)).Sum)
end.

Пример
x= 3.172
S=17.5251080894449