Разработать алгоритм и составить программу вычисления значений суммы S заданного ряда при различных значениях аргумента Х: во внутреннем цикле для фиксированного значения Х поочередно суммировать члены ряда, пока их абсолютная величина превышает заданную точность eps. Вычисление очередного член ряда осуществлять по рекуррентной формуле. Во внешнем цикле аргумент Х изменяется от 0,5 до 0,75 с шагом 0,05. Вычисление значения суммы S и значения выражения Y оформить в виде функций.

const e=0.00001; x0=0.5; xk=0.75; h=0.05; var x:real; k, i:integer; function f (x:real) : real; begin f: = (x+1) * exp (x) + (x-1) * exp (-x); end; function sum (x:real) : real; var a, s:real; n:integer; begin a:=4*x; s:=a; n:=1; while abs (a) >e do begin a:=a * (n+1) * x*x/n / (2*n) / (2*n+1); s:=s+a; inc (n); end; sum:=s; end; begin x:=x0-h; k:=round ((xk-x0) / h) + 1; writeln (' № x S (x) f (x) '); for i:=1 to k do begin x:=x+h; writeln (i:2,' ', x:4:2,' ', sum (x) : 8:5,' ', f (x) : 8:5); end; end.