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ình

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ình

Bài làm:

program tinh_tong;
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.

Program Hotboy;

Uses crt; 

Var s,i,n:real;

Begin

Clrscr;

Write('nhao so n'); readln(n) ;

For i:=2 to n do 

S:=S+1/i ;

Writeln('tong S la',S:3:6);

Readln

End.