Viết chương trình tính tổng:
S= $\frac{1}{1}$ + $\frac{1}{2}$ + $\frac{1}{3}$ + $\frac{1}{4}$ + $\frac{1}{5}$ + ...+ $\frac{1}{12}$
Tin học nha
nhờ các chuyên gia tin học giải dùm !!
Theo kiểu for...do: Uses Crt; Var S:real; i:integer; Begin Clrscr; S:=0; For i:= 1 to 12 do S:=S+1/i; Write('Vay tong S do =',S); Readln End. *Nhớ tick và chọn làm ctrloi hay nhất giúp mình vói nhé!Đa tạ trước ạ: D