ПАСКАЛЬ ABC.NET
Найти сумму числового ряда с заданной точностью e (вводится пользователем): S=1/(2*3*4)+1/(3*4*5)+1/(4*5*6)+.......
Ответы на вопрос
Ответил BobbyFresnel
0
begin
var eps := ReadReal('Введите желаемую точность:');
var b := 1 / (2 * 3 * 4);
var s := b;
var i := 2;
var a: real;
repeat
a := b;
b := 1 / ((i + 1) * (i + 2) * (i + 3));
s += b;
Inc(i)
until Abs(b - a) <= eps;
Println(s)
end.
Новые вопросы
Физика,
1 год назад
Литература,
1 год назад
Химия,
2 года назад
Геометрия,
7 лет назад
Қазақ тiлi,
7 лет назад