Giúp em với ạ, cần gấp lắm ạ Viết thuật toán tính tổng S= 1/1+1/2+1/3...1/100
1 câu trả lời
Viết thuật toán tính tổng S = $\frac{1}{1}$ + $\frac{1}{2}$ + $\frac{1}{3}$ … $\frac{1}{100}$ :
+ Program tinh_tong;
+Uses crt;
+var S, i: integer;
+begin
+clrscr;
+$S:=1$;
+for $i:=1$ to $100$ do $S:=S+1/i$
+write(S);
+readln;
+end.
$@Mia$
