uses crt;
var x,e,t,s:real;
n:integer;
begin
clrscr;
repeat
write('Введите значение x<>0 x=');
readln(x);
until x<>0;
repeat
write('Введите точность вычислений (0;1) e=');
readln(e);
until(e>0)and(e<1);
n:=0;//нулевые значения
t:=-1;//нулевой член ряда
s:=0;//нулевая сумма
while abs(t)>e do//пока очередной член ряда по модулю больше точности
begin
n:=n+1;//считаем следующий
//меняем знак, домножаем на x^4, делим на 4^4 и два следующих номера
//т.е. возводим в степень значение в скобке и считаем обратный факториал знаменателя
t:=-t*x*x*x*x/(256*(2*n*(2*n-1)));
s:=s+t;//считаем сумму
end;
write('Сумма=',s:0:6,' кол-во слагаемых=',n);
readln
end.