VIẾT CHƠNG TRÌNH TÍNH TỔNG SAU
Câu 11: Viết chơng trình tính tổng sau: S=1+
1
2
+1
3
+…+1
n
ợi ý: GVar n,i:integer; s:real; beginwriteln('nhap so n='); readln(n); s:=0; for i:=1 to n do s:=s+1/i; writeln('tong la:',s); readln;end.