*****************set talk offinput"输入一个正整数:"to m n=1 d=0do while n<=m g=1/sqrt(m*m-(n-1)*(n-1)) d=g+d n=n+1enddo?d?2*d********************