Вычислить с заданной точностью ε Опции

[marwell]

задали задачу может, кто сможет помочь? я написал программу

var x,y,z,i,n: integer;
    s,m,e:real;
begin
write ('vvedite x');
readln (x);
write ('vvedite n');
readln (n);
write ('vvedite e');
readln (e);
y:=1;
z:=1;
s:=1;
  for i:=1 to n do
     if y/z>e then  {училка говорит,что тут нужен while,а не if.Пробовал с while,но прога вычисляет неверно  }
       begin
         z:=z*i;
         y:=y*(2*x);
         s:=s+y/z;
      end;
write (s:9:5);
readln;
end.

задание прикреплено

М

Тэги!! Правила раздела, п.2 (подними глаза на верх страницы). Lapp