Срочно!!!! с подробным решением. В Паскаль
Дано действительное число х≠0. Вычислить значение выражения с точностью 10^-3
Дано действительное число х≠0. Вычислить значение выражения с точностью 10^-3
More Questions From This User See All
Answers & Comments
Verified answer
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