Question

Viết chương trình tính tổng:

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

Answer 1

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.

Answer 2

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.