Yêu cầu: Viết chương trình nhập vào một văn bản là một chuỗi kí tự bao gồm chữ cái la tinh thường. Hãy in ra số lượng các ký tự phân biệt trong chuỗi. Dữ liệu: Một dòng là chuỗi ký tự S (0 < length(S) 2000). Kết quả: Số lượng các ký tự phân biệt trong chuỗi ký tự S. Ví dụ Input Output abcda 4 ae ơi giúp t với

*Code Pascal:

var i:longint;
d:int64;
a:array[0..10000000]of int64;
s:ansistring;
begin
   read(s);
    for i:=1 to length(s) do   //chạy từ 1 đến xâu s
     inc(a[ord(s[i])]);    //tăng đếm
      for i:=0 to 256 do  
       if a[i]<>0 then inc(d);   //đếm kí tự
       write(d);  //in kết quả
end.
Code C++:

#include <bits/stdc++.h>
using namespace std;
int countUniqueCharacters(const string& text) {
  unordered_set<char> uniqueChars;
  for (char c : text) {
    uniqueChars.insert(c);    //hàm đếm kí tự
  }
  return uniqueChars.size();
}
int main() {
  string s;   //khai báo string để dùng hàm getline
  getline(cin, s);  //xử lý xâu
  cout<<countUniqueCharacters(s);   // in kết quả của xâu này
}

#include <bits/stdc++.h>

using namespace std;

int main()
{
    string s;
    cin>>s;
    set<char> dem;
    for(char c:s)
    {
        if(islower(c))
        {
            dem.insert(c);
        }
    }
    cout<<dem.size();
}