Pascal/Вводится целое неотрицательное число. Определить - вопрос №16849547 от kashalotic20 17.08.2021 09:50

Question

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

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