Nhập một xâu thực hiện các câu sau: 1. Hiện xâu, đếm xem trong xâu có bao nhiêu dấu cách. 2. Đếm xem trong xâu có bao nhiêu kí tự là số. s[i] in['0'..'9'] Sẽ kiểm tra kí tự thứ i của xâu s có trong tập hợp ‘0’..’9’ không? 3. Chuẩn xâu ( Lược bỏ hết các kí tự trống đầu xâu, kí tự trống cuối xâu, giữa mỗi từ trong xâu chỉ để lại 1 kí tự trống) VIẾT BẰNG NGÔN NGỮ C++ NHÉ. COPY MẠNG REPORT

var s,tg:string;
d,i,m,l:longint;
begin
writeln('nhap xau');
read(s);
m:=0;
d:=0;
i:=0;
while i<=length(s) do
begin
while not(s[i] in['0'..'9']) and (i<=length(s)) do
i:=i+1;
while(s[i] in ['0'..'9'])and (i<=length(s)) do
begin
m:=m+1 ;
i:=i+1;
end;
val(tg,l);
end;
while s[1]=' ' do
delete(s,1,1);
while s[length(s)]=' ' do
delete(s,length(s),1);
while pos('  ',s)<>0 do
delete(s,pos(' ',s),1);
for i:=1 to length(s) do
if s[i]=' 'then d:=d+1;
writeln('so ki tu so',m);
write('so dau cach',d);
end.