Trình bày trong pascal đầy đủ hộ em nha
1.Đếm số dấu cách có trong xâu
2.Đếm số lượng chữ số trong xâu
3.Tạo xâu chỉ gồm các chữ số
4.Xóa hết dấu cách ở đầu xâu
5.Xóa hết dấu cách ở cuối xâu
6.Xâu viết ngược
7.Tạo xâu mới ko có chữ số chẵn(lẻ)
X:= length(s);
For i:=x downto 1 do
If S[i] =’ ‘ then delete(s,i,1); (‘’ là khoảng trắng, dấu cách)
A. Xóa dấu cách(khoảng trắng) đầu tiên trong xâu ký tự S;
B. Xóa dấu cách(khoảng trắng) thừa trong xâu ký tự S;
C. Xóa dấu cách(khoảng trắng) tại vị trí cuối cùng trong xâu ký tự S;
D. Xóa mọi dấu cách(khoảng trắng) trong xâu ký tự S;