var s:string; {khai báo s có kiểu là xâu string}
i,d:byte; {khai báo i và d có kiểu số nguyen byte}
begin {bắt đầu}
d:=0; {gán d=0}
write('Nhap xau: '); readln(s); {hiển thị ra màn hình 'Nhap xau: ' và chờ bạn nhâp một xâu s}
for i:=1 to length(s) do {Cho biến i chạy từ 1 đến cuối xâu s}
if s[i]=' ' then d:=d+1; {Nếu kí tự i của xâu S là khoảng trắng thì tăng d lên 1 đơn vị}
write('co ',d,' khoang trang'); {in ra màn hình 'co ', sau đó in ra giá trị của d và in ' khoang trang}
readln {Chờ nhấn enter}
end. {Kết thúc}
Tác dụng của bài này là đếm khoảng trắng, quét hết từ đều đến cuối xâu, nếu là kí tự trắng thì cộng dồn cho biến d
VD: khi chạy chương trình và nhập s=' Toi la hoc sinh'
Nhap xau: Toi la hoc sinh
co 3 khoang trang
Giải thích: Vì khi thực hiện xong vòng for, biến đếm nhận giá trị 3 vì có 3 khoảng trắng.
