Срочно!!!! с подробным решением. В Паскаль Дано действительное число х≠0. Вычислить...

Question

Срочно!!!! с подробным решением. В Паскаль
Дано действительное число х≠0. Вычислить значение выражения с точностью 10^-3

---

Answer 1

Const e=1e-3;
var x,x2,a,s:real; k:integer;
begin
write('x = ');
readln(x);
x2:=x*x;
k:=1;
a:=1/(x2+1);
s:=a;
while a>e do begin
 k:=k+1;
 a:=1/(x2+k*k*k);
 s:=s+a;
 end;
writeln('s = ',s:6:4);
end.

Пример:
x = 1.5
s = 0.4742

Answer 2

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

begin
  var (x,eps):=(ReadReal('x='),1e-3);
  var p:=MaxReal; // для предществующего члена ряда
  var (k,s):=(1,0.0); // гначальные присваивания
  while true do begin // выход по break
    var t:=1/(x*x+k*k*k); // очередной член ряда
    if Abs(t-p)<=eps then break; // достигнута точность eps<br>    s+=t; // накопление суммы
    p:=t; // запомнили значение как "предыдущее"
    k+=1 // следующее k
    end;
  Writeln('S= ',s:0:3)
end.

Пример
x= 2.43
S= 0.2