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

Answer 3

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

Answer 4

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

Answer 5

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

Answer 6

На моем месте другой человек мог быть. Я же не о себе лично, а о Вашем отношении к людям. Это отношение невоспитанного хамоватого эгоиста-потребителя. Больше говорить не о чем, просто запишу в свой черный список, чтобы не пачкаться в следующие раз.

Answer 7

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