Question

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;

Write (S);

Readln;

End.

Answer 2

program bai1;

var s,n,i:longint;

begin

write('N= ');readln(n);

s:=0;

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

write('s= ',s);

readln

end.