Tham khảo chương trình:
`@` Pascal :

uses crt;
var
    a : ansistring;
    kt,len : int64;
    result : boolean;
    i,i1 : longint;
begin
clrscr;
    readln(a);
    len := length(a);
    for i := 1 to len do
        begin
        result := false;
        for i1 := 1 to i - 1 do if a[i] = a[i1] then result := true;
        if result = false then inc(kt);
        end;
    writeln(kt);
end.

Code sẵn (nộp từ năm trước =))).

$\\$

Code tham khảo:

print(len(set(input())))

$\\$
$\\$
\begin{array}{c|c|c}\color{#ffd710}{\texttt{\{}} \color{#8655d6}{\texttt{\{}}\ \ \color{#8cdcda}{\text{Daoanhviet96}}\ \ \color{#8655d6}{\texttt{\}}} \color{#ffd710}{\texttt{\}}}\end{array}