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

Question

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

---

Comments

В настройках поставил 30б, а здесь указано 15..

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

Comments

Мне не за что извиняться.

---

Зачем мне благодарить, если Ваше решение мне не подходит?

---

Я и не просил именно Вас решать задание)

---

И повторюсь, если мне не подходит ваше решение, то смысл благодарить?

---

А то, что я не указал язык программирования - мой косяк.

---

Ахах, долго придумывал? Я вполне нормально отношусь к остальным. А если ты считаешь, что я должен благодарить тебя ни за что..

Answer 2

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.