Pascal/Вводится целое неотрицательное число. - вопрос №16848870 от Alexa647 06.07.2020 13:46

Question

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

Alexa647 · Answer

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....