Дан числовой ряд и некоторое малое число ε (например, ε=0,00001). Найти сумму тех членов ряда, модуль которых больше или равен заданному ε. Формула [tex] a_{n} = \frac{1}{ 2^{n} } + \frac{1}{ 3^{n} } [/tex]
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)>=eps do begin s:=s+a; b:=2*b; c:=c*3; a:=1/b+1/c; end; writeln('s = ',s:8:5); end.
Answers & Comments
Verified answer
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)>=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