Question

Viết chương trình nhập vào một xâu. Đếm trong xâu có bao nhiêu từ

 

Answer 1

Program HOC24;

var s: string;

i,d: byte;

begin

write('Nhap xau: '); readln(s);

while s[1]=#32 do delete(s,1,1);

while length(s)=#32 do delete(s,length(s),1);

while pos(#32#32,s)<>0 do delete(s,pos(#32#32,s),1);

d:=0;

for i:=1 to length(s) do if s[i]=#32 then d:=d+1;

write('Trong xau co ',d+1, ' tu');

readln

end.