Question

50 баллов помогите с информатикой

Answer 1

var eps,e,s: real;

k: integer;

begin

write('Введите Eps: ');

readln(eps);

s:=0;

k:=1;

e:=(k+2)/((k*k*k)+4);

while e>abs(eps) do begin

s:=s+e;

inc(k);

e:=(k+2)/((k*k*k)+4);

end;

writeln('Сумма ',k,' элементов равна ',s:5);

end.

Answer 2

Спасибо большое, помогите пожалуйста с этим заданием https://znanija.com/task/31126592

Answer 3

Чуть позже гляну, как домой приду