Viết chương trình tính tổng S =1+1/2+1/3+1/4+⋯+1/N với 1/N <0.001 thì ngừng.

uses crt;

var n : integer; s : real;

begin

clrscr;

n := 1; s := 0;

while 1/n >= 0.001 do

begin

s := s + 1/n;

n := n + 1;

end;

writeln('tong S =', s:3:3);

readln

end.