
Ярмило
6 год назад
Дан числовой ряд и некоторое малое число ε (например, ε = 0,00001). Найти сумму тех членов ряда, модуль которых больше или равен заданному ε. Формула 
ОТВЕТЫ

Meelnagep
Aug 3, 2019
Const eps=0.00001;
var b,c:integer; a,s:real;
begin
s:=0;
b:=1; c:=1;
a:=1/b+1/c;
while abs(a)gt;=eps do
begin
s:=s+a;
b:=2*b; c:=c*3;
a:=1/b+1/c;
end;
writeln(s = ,s:8:5);
end.
Результат:
s = 3.49998
var b,c:integer; a,s:real;
begin
s:=0;
b:=1; c:=1;
a:=1/b+1/c;
while abs(a)gt;=eps do
begin
s:=s+a;
b:=2*b; c:=c*3;
a:=1/b+1/c;
end;
writeln(s = ,s:8:5);
end.
Результат:
s = 3.49998
91
Смежные вопросы: