Question

Cho số tự nhiên n Hãy lập trình tính tổng sau s =1+1/2+1/3+...+1/n

Answer 1

Tham khảo:

Uses Crt ; 
Var i , n : Integer ; 
tong: Real ; 
BEGIN 
Clrscr ; 
Write (‘ Cho so tu nhien n : ‘) ; Readln (n) ; 
tong :=0 ; 
i :=1 ; 
While i <= n Do 
Begin 
tong := tong + 1/i ; 
i := i + 1 ; 
End ; 
Writeln (‘ Tong can tim la : ‘, tong:12:6 ) ; 
Readln ; 
END .