Do đây là xâu chuẩn nên chúng ta chỉ cần đếm xem từng phần tử của xâu s có nằm trong khoảng từ 'a'→'z'; 'A'→'Z'; '0'→'9' hay không để đếm kí tự. Và không có dấu cách thừa vậy nên mình chỉ cần đếm <dấu cách> từ đó ⇒ số từ

Chương trình:

Program dem;
Uses crt;
Var s: string;
i,tu, kt: integer;
Begin 
clrscr;
Write('Nhập xâu: ');Readln(s);
kt := 0;
tu := 0;
For i := 1 to length(s) do
    if s[i] in ['a'..'z']+['A'..'Z']+['0'..'9']
    then kt := kt + 1;
For i := 1 to length(s)-1 do
    if s[i] = ' ' then tu := tu + 1;
Writeln('Ky tu: ',kt);
Writeln('Tu: ',tu);
Readln;
End.

print(len(input().split()))

Giải thích câu lệnh:

input().split(): phân tách input theo dấu phẩy thành 1 danh sách

len(input().split()): trả về độ dài của danh sách trên

print(len(input().split())): in ra màn hình độ dài của danh sách trên