АГ
Анна Горячева
var
s: set of char;
i: Integer;
begin
s := [];
Result := 0;
for i := 1 to Length(IntToStr(N)) do
if not (IntToStr(N) in S) then
begin
Inc(Result);
s := s + [IntToStr(N)];
end;
end;