Question

viết ct tính tổng:A=1+1/2+1/3+...+1/N (n thuộc z)

a) sử dụng lệnh for...to...do

b)sử dụng lệnh while...do

Answer 1

program fordo;

var i,n:longint;

s:real;

begin

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

s:=0;

for i:=1 to n do

s:=s+1/i;

writeln('Tong la ',s);

readln

end.

Answer 2

program whiledo;

var i,n:longint;

s:real;

begin

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

s:=0;i:=1;

While i<= n do

begin

s:=s+1/i;

i:=i+1;

end;

writeln('Tong la ',s);

readln

end.