Question

Посчитайте количество целых чисел от L до R все цифры которых различны

Answer 1

{ подсчет количества чисел в диапазоне от
 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.