Question

Тридцать баллов, решите плиз)

Answer 1

program z;
var x,s:real;   
       i:integer;
begin
readln(x);
s:=0;
for i:=1 to 17 do
s:=s+(i*sqrt(x))/(x+(i+2));
writeln(s);
end.

Answer 2

// 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