VCT tính tổng sau: S=1+1/2+1/3+…+1/n

program phuongt;

uses crt;

  var n, i: integer;

           s: real;

begin

                clrscr;

                write(‘Nhap n = ‘); readln(n);

                s:=0;

                for i:=1 to n do s:=s+1/i;

                write(‘S = ‘, s:3:1);

                readln

end.