частичная сумма ряда [Pascal]

[latx]

Используется синтаксис Pascal

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 )

[venco]

Что вы имеете в виду под "перестаёт считать"?

[gris]

Наверное, перестаёт изменяться, так как члены ряда становятся слишком маленькими для данного формата переменной. И вообще, лучше суммировать в обратном направлении.

[venco]

А ещё интересно, откуда взялись константы в коде и в исходном сообщении - oни разные, причём не равны настоящему пределу.