[Volvo]

Что-то типа этого должно сработать...

function fact(n as integer)
 f = 1
 for i=1 to n
   f = f * i
 next i
 fact = f
end function

function t(x as single)
 s1=0
 s2=0
 for k = 0 to 10
   s1 = s1 + (x**(2*k+1)/fact(2*k+1))
   s2 = s2 + (x**2*k)/fact(2*k)
 next k
 t=s1/s2
end function

INPUT “y=”;y
z=(1.7*t(.25)+2*t(1+y))/ 6-t(y^z-1)
PRINT “z=”;z