program main
implicit none
integer::i
real::a=2
real::b=1
real::a=2
real::k=1
real::s=0
real::t
integer :: i=1
do while (i<=15)
t=a+b
s=s+k*a/b
b=a
a=t
k=-k
i=i+1
end do
write(*,*)s
pause
endprogram
0
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024