Uses Crt; Var i,n:longint; S:real; Begin Clrscr; Write('Nhap mau so n= '); Readln(n); For i:= 1 to n do s:=s+1/i; Write('Vay tong S = ',S); Readln End. *Nhớ tick và chọn làm câu trả lời hay nhất giúp mình với nhá!Đa tạ :D *p/s: Hỏi đáp, comment bên dưới!