Вычислить значение у. Подсчет вести до тех пор, пока очередной член ряда по модулю не станет меньше E. Значение E должно быть малой величиной порядка 0.001. Значение x, E задавать с клавиатуры.
При решении данного задания необходимо использовать алгоритм с условным циклом. Сама функция [tex]y=1+x/1!+x^2/2!+...[/tex]

Var   y,x,E,Ch,F,St:real;   n:integer;BeginWrite('E = ');ReadLn(E);Write('x = ');ReadLn(x);y:=0;St:=1;Ch:=1;n:=1;F:=1;While Ch>=E do   Begin   y:=y+Ch;   F:=F*n;   St:=St*x;   Ch:=St/F;   n:=n+1;   End;Write('y = ',y)End.Пример:E = 0.001x = 13y = 442413.391363861