Thuật toán:

Bước 1: Nhập n

Bước 2: s <- 0;

Bước 3: i <- 1 to n 

s <- s+1/i

Bước 4: Xuất s

Chương trình:

Program BTT;
Uses crt;
Var  n,i: longint;
     s: extended;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        s:=0;
        For i:=1 to n do s:=s+1/i;
        Write('S = ',s:0:2);
        Readln
End.

Mô tả thuật toán

B1: Nhập n

B2: s--->0

B3: i---->1 to n  do s ---->s+1/i

B4: Thông báo giá trị s

B5: Kết thúc thuật toán

Chương trình:

Program BTH;
Uses Crt;
var i,n:integer;
s:real;
Begin
Clrscr;
Write('Nhap so n: ');readln(n);
For i:=1 to n do
s:=s+1/i;
writeln('Tong day so tren la: ',s:4:2);
readln;
End.

Nếu bạn lớp 8 thì bạn nên làm theo chương trình của mình cho dễ hiểu với hợp cách lớp 8 hơn