Question

[꧁ Sơn 8/2 ꧂]

Viết phương trình tính S=1+1/2+1/3+...+1/n

Answer 1

[Kaito Kid]

bn tham khảo

program tinhtong;

uses crt;

var i, n : integer; S : real;

begin

clrscr;

writeln('Nhap so thu n: '); readln(n);

S:=0; i:=1;

while i<=n do begin

S:=S+1/i; i:=i+1;

end;

writeln('Tong la: ',S:2:3);

readln

end.

Answer 2

[꧁ Sơn 8/2 ꧂]

còn bài nx giải hộ ik