Cách 1:

Bước 1: Gán cho S:=1/a ; gán cho N=0;

Bước 2: Tăng giá trị N lên 1. N:=N+1;

Bước 3: Nếu N > 100 thì chuyển đến bước 5;

Bước 4: S:=S+1/(a+N); quay lại bước 2 (Thao tác lặp ở đây).

Bước 5: Đưa S ra màn hình rồi kết thúc.

Cách 2:

Bước 1: Gán cho S:=1/a ; gán cho N=101;

Bước 2: Giảm giá trị N xuống 1. N:=N-1;

Bước 3: Nếu N<1 thì chuyển đến bước 5;

Bước 4: S:=S+1/(a+N); quay lại bước 2 (Thao tác lặp ở đây).

Bước 5: Đưa S ra màn hình rồi kết thúc.

1/

Program BTH;
uses crt;
var n,s,i:longint;
Begin
clrscr;
Write('Nhap n: ');readln(n);
for i:=1 to n do
s:=s+i;
Write('Tong day so tren la: ',s);
readln;
end.

2/

Program BTH;
uses crt;
var n,s,i:longint;
Begin
clrscr;
Write('Nhap n: ');readln(n);
s:=1;
for i:=1 to n do
s:=s*i;
Write('Tich day so tren la: ',s);
readln;
end.