Pascal найти сумму 35 членов ряда s=2/3+4/9+6/27+8/81....

Question

Pascal найти сумму 35 членов ряда s=2/3+4/9+6/27+8/81....

Comments

я сделал вот такvar i:integer; sum:real;function f(x:integer):real;begin f:=(2*x)/(exp(ln(3)*x));end;begin sum:=0; for i:=1 to 35 do begin sum:=sum+f(i); end; writeln('Sum = ',sum:6:2); Readln;end.

---

мне нужен другой вариант решения

---

кто знает как сделать?

Answer 1

Эта сумма равна 75047317648499524 / 50031545098999707, что приблизительно составляет  1.49999999999999927046.

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

begin
  var k:=BigInteger(3);
  var s:=2/k;
  for var i:=2 to 35 do begin k*=3; s+=2*i/k end;
  Writeln('s=',s)
end.

Результат
s=1.5

Comments

спасибо большое

Answer 2

На первом скрине сама программа на втором результат её работы, сумму я округлил чтобы перед запятой было 3 знака и после  

---

---

Comments

большое спасибо

---

да без проблем