Посчитайте количество целых чисел от L до R все цифры которых различны
Посчитайте количество целых чисел от 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.
Не нашли ответ?
Похожие вопросы