b. Để tính số lần lặp, ta sử dụng một biến đếm số lần lặp và tăng giá trị của biến đếm mỗi khi vòng lặp được thực thi. Trong trường hợp này, ta có thể đặt một biến đếm tên là count và tăng giá trị của count lên 1 ở mỗi vòng lặp. Khi vòng lặp kết thúc, ta sử dụng lệnh write để thông báo giá trị của biến đếm. Do đó, mã chương trình được cập nhật như sau:

S:= 0; n: = 0; count := 0; While S<=10 do Begin n:= n+1; S:= S+n; count := count + 1; end; Write('So lan lap la: ', count);

Khi chạy đoạn chương trình trên, chương trình sẽ in ra thông báo số lần lặp, tùy thuộc vào số lần vòng lặp được thực thi.