Множества

[Doublefaced]

Помогите пож - та написать программку

Вычислить количество различных цифр в десятичной записи числа.

В Делфи(консоль апккл)

[Levsha100]

У Вас наработки есть?
Поищите по сайту примеров куча!

[Doublefaced]

Наработок нет
Ничего не могу найти.

[alex_fcsm]

var i,j,n:integer;
    s:set of 0..9;
begin
readln(n);
s:=[];
j:=0;
while n<>0 do begin
 i:=n mod 10;
 if not (i in s) then begin
                       inc(j);
                       s:=s+[i];
                      end;
  n:=n div 10;
end;
writeln(j);
end.