viết chương trình tính tổng: S= 1 + 1/2 + 1/3 + - + 1/n với 1/n

Question

viết chương trình tính tổng: S= 1 + 1/2 + 1/3 + .... + 1/n với 1/n <= 1000, sử dụng lệnh while ... do giúp mk vsss

kimlien · Answer

program tinhtong;

uses crt;

var i:integer;

n:real;

S:real;

begin

clrscr;

writeln(‘ n = ‘); readln(n);

S:=0; i:=1;

while 1/n <= 1000 do begin

S:=S+1/i;

i:=i+1;

end;

writeln(‘Tong la: ‘,S:2:3);

readln

end.

viết chương trình tính tổng: S= 1 + 1/2 + 1/3 + – + 1/n với 1/n <= 1000, sử dụng lệnh while ... do giúp mk vsss