!write a program to evaluate the following sum:
!S=summetion(-1)**n*(x)**(n/2)/(n*(n+1)) for n=1 to 10
program sum_of_a_series
implicit none
real::x,s_x
integer::n
print*,"Type value of x"
read*,x
print*,"x=",x
s_x=-.5*sqrt(x)
do n=2,10,1
s_x=s_x+s_x*(-1)**n*x**(.5*n+.5)/(n*(n+2))
enddo
print*,"S=",s_x
end program sum_of_a_series
!S=summetion(-1)**n*(x)**(n/2)/(n*(n+1)) for n=1 to 10
program sum_of_a_series
implicit none
real::x,s_x
integer::n
print*,"Type value of x"
read*,x
print*,"x=",x
s_x=-.5*sqrt(x)
do n=2,10,1
s_x=s_x+s_x*(-1)**n*x**(.5*n+.5)/(n*(n+2))
enddo
print*,"S=",s_x
end program sum_of_a_series
