Viết chương trình nhập vào 1 xâu kí tự, đếm xem trong xâu có bao nhiêu từ ( từ là 1 dãy kí tự k chứa dấu cách, vd xâu 'dich benh COVID 19' có 4 từ)
2 câu trả lời
var
st: string;
i，kq: integer;
begin
readln (st);
for i:= 1 to length (st) do if st[i] = ‘ ‘ then inc (kq);
writeln(kq+1);
readln;
end.
uses crt;
var s : string; d, i : byte;
begin
clrscr; d := 1;
write('Nhap xau : '); readln(s);
for i := 1 to length(s) do
if (s[i] <> ' ') and (s[i + 1] = ' ')
then d := d + 1;
write('Xau co ', d ,' tu');
readln
end.
