Pascal/Вводится целое неотрицательное число. Определить - вопрос №16849213 от slava31012 30.11.2021 10:04

Question

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

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