bubblePascal/Вводится целое неотрицательное число. Определить Как узнать сколько различных чисел, такой же длины можно составить из его цифр. При составлении числа должны использоваться все цифры исходного числа, в том же количестве, что и в исходном числе.
ответы: 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.
194
BaldiniЧтобы ответить необходимо зарегистрироваться.
