Задача на множества

[Hita4]

[Arigato]

Я ничего не вижу.

[Zer0]

ну вот Вам для затравочки:

var nums:set of byte;
     n:integer; c:byte;
begin
nums:=[];
readln(n);
while n>0 do begin
  nums:=nums+[n mod 10];
  n:=n div 10;
end;

c:=0;
for n:=0 to 9 do 
 if n in nums then inc(c);
writeln('Kol-vo razl cifr = ',c);
end.