For[n=1;s=0; sign=1, n<10,n++; sign=-sign,s=N[s+sign/n]]
Print[s]
Print[N[Log[2]]]