dim a(1e5) for i=0to 1e5s=s+(-1)^i/(2*i+1) a(i)=s next input""n for i=1to n input""m ?a(m-1)using"%.15g"next

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page