1/cú pháp câu lệnh for..do:

For<biến đếm>:=<giá trị đầu>to<giá trị cuối>do<câu lệnh>;

Trong đó: For,do là biến kiểu nguyên

-giá trị đầu,  giá trị cuối là các giá trị nguyên

2/cú pháp câu lệnh while..do

While<điều kiện>do<câu lệnh>;

Trong đó: Phép so sánh

-câu lệnh: có thể là câu lệnh ghép hoặc câu lệnh đơn

3/Mô tả thuật toán

- Bước 1: Nhập n. Gán i=1, A:=0;

- Bước 2: A=1/i(i+2).

- Bước 3: i:= i+1;

- Bước 3: Nếu i > n thì đến bước 5, ngược lại quay về bước 2.

- Bước 4: In ra A.

- Bước 5 kết thúc vòng lặp.

4/Thuật toán:

B1:Nhập n

B2: S<-0;  i<- 1

B3: S<- S+1/i

B4: i<-i+1

B5:nếu i <hoặc = n thì quay lại B3

B6:Thông báo kết quả kết thúc thuật toán.

*Viết chưng trình

Program Tinh_tong;

uses crt;

var N,i: integer;

        S: real;

begin

write('nhap do n='); readln(n);

S:=0

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

writeln('tong can tim la : S : 2: 4');

readln

end