Question

Giúp mình vs

Viết chương trình thực hiện lệnh For.....do hoặc lệnh While....do để tính tổng

S=\(1+\dfrac{1}{2}+\dfrac{1}{3}+\dfrac{1}{4}+....+\dfrac{1}{n}\)

Với n là số nhập từ bàn phím

Answer 1

Var i , n : Integer;

S : real;

Begin

write (' n = ') ; read (n);

S:=0

For i:=1 to n do S:= S + 1/i;

Writeln ( S );

Readln;

End.

Answer 2

program bai1;

var i,n,s:longint;

begin

write('N= ');

readln(n);

s:=1;

for i:=2 to n do s:=s+1/i;

write('s= ',s);

readln

end.