Question

Pascal/Вводится целое неотрицательное число. Определить сколько различных чисел, такой же длины можно составить из его цифр. При составлении числа должны использоваться все цифры исходного числа, в том же количестве, что и в исходном числе.

Answer 1

Ответ:

var a,b,i:integer;

begin

   b:=1;

   i:=0;

   write('Введите число: '); readln(a);

   while a <> 0 do begin

       i:=i+1;

       a:=a div 10;

       b:=b*i;

   end;

   write('Количество возможных перестановок равно: ', b);

end.