Множество (Pascal)

[CFYZ]

Подсчитать количество различных цифр в записи натурального числа N(использовать множество цифр данного числа)

[Consol]

uses crt;
var a:set of byte;
    i,k,n:word;
begin
clrscr;
writeln('n ');
readln(n);
k:=0;
repeat
i:=n mod 10;
n:=n div 10;
if not(i in a) then
 begin
  k:=k+1;
  a:=a+[i];
 end;
until(n=0);
writeln(k);
readln;
end.