Дан числовой ряд и некоторое малое число x (например, x=0,00001). Найти сумму тех членов ряда, модуль которых больше или равен заданному x. Общий член
ряда имеет вид:
An = (2^n)/((n-1)!)
Написать в ПАСКАЛЕ
ряда имеет вид:
An = (2^n)/((n-1)!)
Написать в ПАСКАЛЕ
More Questions From This User See All
Answers & Comments
Verified answer
Const e=0.00001;var a,st,f,s:real; n:integer;
begin
n:=1;
st:=2; f:=1;
a:=2;
s:=2;
while abs(a)>=e do
begin
st:=2*st;
a:=st/f;
s:=s+a;
n:=n+1; f:=f*n;
end;
writeln('s=',s:7:5);
end.
Результат:
s=14.77811