Условие: Дано натуральное число N. Сколько различных чисел встречается в его десятичной записи?
Технические условия: Стандартные.
Примеры входных и выходных файлов: Отсутствуют.
Решение: var n:longint; i,c:integer; s:string; A:array [1..10] of boolean; begin write('Введите N: '); readln(n); str(n,s); for i:=1 to length(s) do begin val(s[i],n,c); A[n]:=true; end; n:=0; for i:=1 to 10 do if A[i] then inc(n); write('В этом числе содержиться ',n,' различных цифр!'); readln; end.