program n1271 implicit none integer k,i real(8)::ans=0 read*,k do i=1,k ans=ans+1/real(i) end do print'(f0.10)',ans/real(k) end program n1271