giúp mình với!!!!!!!!!!!!!!!!

[beconngusay]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Tính Tổng S=1+1/2+1/3+......+1/n(n<=100 là số nguyên dc nhập từ bàn phím)

 

[i_am_challenger]

Uses Crt ;
Var i , n : byte;
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 .

đó bạn!