Viết chương trình nhập vào một xâu s và đếm xem nó có bao nhiêu từ , từ là một dãy các kí tự cách nhau bởi dấu cách.
1 câu trả lời
var s: string;
i,d: byte;
begin
write('Nhap xau S='); readln(s);
d:=0;
for i:=1 to length(s) do
if s[i]=#32 do
begin
inc(d);
delete(s,i,1);
end;
writeln('Trong xau co ',d,' dau cach');
write('Xau sau khi da xoa dau cach :',s);
readln
end.
Câu hỏi trong lớp
Xem thêm
