Вычислить сумму ряда с заданной точностью - PascalABC.NET (24760)
Формулировка задачи:
Помогите с заданием
Решение задачи: «Вычислить сумму ряда с заданной точностью»
textual
Листинг программы
const
eps = 1e-8;
begin
var x := ReadLnReal('x =');
var a := x;
var s := a;
var n := 0;
repeat
n += 2;
a *= x * (n - 1) / n;
s += a;
until a < eps;
WriteLn('S = ', s);
end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д