Посчитайте количество целых чисел от L до R все цифры которых различны
{ подсчет количества чисел в диапазоне от
L до R, в записи которых нет одинаковых цифр}
var i,j,k,n,m,l,r,nmb: integer;
a: set of 0..9;
begin
write(от числа: ); readln(l);
write(до числа: ); readln(r);
nmb:=0;
for i:=l+1 to r-1 do
begin
n:=0; k:=i; a:=[];
while (k>0) do
begin
a:=a+[k mod 10];
k:=k div 10;
n:=n+1;
end;
j:=0;
foreach m in a do j:=j+1;
if n=j then nmb:=nmb+1;
end;
writeln(количество чисел = ,nmb);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
