nhập vào 1 xâu. đưa ra số từ của xâu (xâu nhập là xâu chuẩn hóa)
2 câu trả lời
var str1: string; st: byte;
begin
write('Nhap chuoi can tim: ');
readln(str1);
st:=1;
while(pos(' ',str1)<>0) do
begin
inc(st);
delete(str1,1,pos(' ',str1));
end;
write('So tu la: ',st);
readln
end.
Var s: string;
d, i: byte;
Begin
d:=1;
Write('nhap xau: '); readln(s);
For i:=1 to length(s) do if s[i]=' '
Then d:=d+1;
Write('trong xau co ', d, ' tu');
Readln
End.
{GM Kiet}
