nhập vào 1 xâu đếm số lượng dấu cách của xâu đó và in ra xâu bằng cách loại trừ tất cả các dấu cách trong xâu
1 câu trả lời
program abc;
uses crt;
var
s:string;
i,a:byte;
begin
write('Nhap xau: ');
readln(s);
a:=0;
for i:=1 to length(s) do
while s[i]=' ' do
begin
a:=a+1;
delete(s,i,1);
end;
writeln('So dau cach: ',a);
writeln('Xau moi: ',s);
readln;
end.
