Собственно, я решил:
var a,E,sum,l: real;
k,n:integer;
begin
repeat
write('Введите a (a<>0): ');
read(a);
until (a<>0);
repeat
write('Введите E точность (E>0): ');
read(E);
until (E>0);
l:=1;
k:=0;
sum:=0;
n:=0;
repeat
l:=l*(a+k);
sum:=sum+(1/(l));
k:=k+1;
until (abs(sum)<E);
writeln('Sum=',sum);
end.
Но, получается так, что ответом в любом случае будет результат выражения 1/a.
Быть может, я путаю понятие "с заданной точностью", но интернет говорит о том, что модуль значения должен быть меньше данной точности.
Если результат 1/a
Средний
