Посчитайте количество целых чисел L до R, все цифры которых различны
12345678910111213141516171819202122232425262728293031uses crt;var n: longint; k: byte; procedure KRZ (c: longint; var kz: byte);var m: set of byte; z: byte;beginif 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; beginwrite(n=); readln(n);KRZ (n,k);writeln(k, различных цифр);readln;end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
