1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
uses crt;
var n: longint;
k: byte;
procedure KRZ (c: longint; var kz: byte);
var m: set of byte;
z: byte;
begin
if c<0 then c:=c*(-1);
if c=0 then kz:=1 else
begin
m:=[];
kz:=0;
while c>=1 do
begin
if not (c mod 10 in m) then
begin
inc(kz);
m:=m+[c mod 10];
end;
c:=c div 10;
end;
end;
end;
begin
write('n='); readln(n);
KRZ (n,k);
writeln(k,' различных цифр');
readln;
end.