Trên một xâu ký tự, một rô bốt xuất phát từ ô trên trái đi lần lượt qua từng ô một theo hướng từ trái sang phải, đi đến đâu rô bốt nhặt ký tự ở ô đó. Mỗi ký tự rô bốt chỉ nhặt một lần, nên những ký tự đã nhặt rồi thì không nhặt thêm nữa. Yêu cầu: Hãy xác định số ký tự mà rô bốt nhặt được. Dữ liệu vào: Một xâu S là đường mà robot phải đi (1 <= |S| <= 100, S chỉ gồm những ký tự ASCII in được, kể cả khoảng trắng) Dữ liệu ra: Là số ký tự mà rô bốt nhặt được. Em cần trước 12 h ạ

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}