var t,etalon,delta,s:real;
n,i:integer;
begin
write('n=');
readln(n);
t:=1;
etalon:=7.3880559;
s:=1;
for i:=1 to (n-1) do
begin
t:=t*2/i;
s:=s+t;
end;
delta:=abs(etalon-S);
writeln ('сумма ряда S= ',S:17:14);
writeln('эталон e= ', etalon:17:14);
writeln('разность etalon-S= ', delta:17:14);
readln
end.
при n>21 перестает считать
найдите ошибку пожалуйста
мне кажется ошибка в формуле t:=t*2/i;
по другому не знаю как написать
(вот задание если что:
дан ряд 1+2/1!+4/2!+8/3!+16/4!+...
найти частичную сумму ряда
ряд сходится к значению
е^x при х = 2
e^2=7,3890559 )
