Question

Viết chương trình tính tổng nghịch đảo các số từ 1 đến n , với n là số tự nhiên nhập từ bàn phím :

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

Answer 1

uses crt;

var n,i:integer;

s:real;

begin

clrscr;

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

s:=0;

for i:=1 to n do

s:=s+1/i;

writeln('tong nghich dao cac so tu 1 toi ',n,' la: ',s:4:2);

readln;

end.

Answer 2

uses crt;

var n,i:integer;

s:real;

begin

clrscr;

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

s:=0;

for i:=1 to n do

s:=s+1/i;

writeln('tong nghich dao cac so tu 1 toi ',n,' la: ',s:4:2);

readln;

end.