Viết chương trình tính tổng S = 1/2 + 1/3 + 1/4 + 1/5 + ... + 1/n. Với n được nhập từ bàn phím, đưa ra kết quả trên màn hìnhViết chương trình tính tổng S = 1/2 + 1/3 + 1/4 + 1/5 + ... + 1/n. Với n được nhập từ bàn phím, đưa ra kết quả trên màn hình
program window uses crt; var n,i:integer; t:real; begin clrscr; writeln('Nhap n'); readln(n); t:=0; for i:=1 to n do t:=t + 1/i; writeln('Tong la: ',t:4:2); readln; end.