Làm bằng vòng lặp while hoặc vòng lặp for đều được ạ. Mai em thi giữa kì II tin rùi mong mọi người giúp đỡ ạ😭 Em có cả vd cách làm ở trang thứ 2 và 3 ạ.
Program Tinhtong; Uses crt; Var i,n: integer; S: real; Begin Write ('nhap so la n:'); readln(n); S:= 0; i:= 1; While i <= n do Begin S: = S + 1/i; i: = i + 1; end; Writeln(' Tong la S', S:2:2); Readln; End.