Pascal/Вводится целое неотрицательное число. Определить сколько различных чисел, такой же длины можно составить из его цифр. При составлении числа должны использоваться все цифры исходного числа, в том же количестве, что и в исходном числе.
Ответы
Ответ дал:
3
Ответ:
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.
xzl46296:
Спасибо!
Вас заинтересует
1 год назад
1 год назад
8 лет назад
8 лет назад