Определить количество всех различных 3-х значных чисел, которые можно составить из цифр данного числа

@Dess1996 · Регистрация: 16.07.2017

Дано 3-х значное число, определить количество всех различных 3-х значных чисел, которые можно составить из цифр этого числа. Заранее спасибо.

Добавлено через 1 минуту
Помогите пожалуйста, вся надежда на вас

Добавлено через 24 минуты
Пожалуйста, мне срочно нужно.

valeriikozlov · 23.05.2012, 06:52

Pascal

var
i:integer;
n,col:longint;
a:array[1..3] of integer;
b:array[0..9] of integer;
procedure rec(t:integer);
var i:integer;
begin
if t=4 then begin
inc(col);
for i:=1 to 3 do
write(a[i]);
writeln();
exit;
end;
for i:=0 to 9 do
if b[i]>0 then begin
dec(b[i]);
a[t]:=i;
rec(t+1);
inc(b[i]);
end;
end;
 
begin
write('Число: ');
read(n);
while(n>0) do begin
inc(b[n mod 10]);
n:=n div 10;
end;
for i:=1 to 9 do
if b[i]>0 then begin
a[1]:=i; dec(b[i]);
rec(2);
inc(b[i]);
end;
writeln('Количество: ', col);
end.

@Dess1996 0 / 0 / 0 Регистрация: 16.07.2017 Сообщений: 1
		1
	Определить количество всех различных 3-х значных чисел, которые можно составить из цифр данного числа 22.05.2012, 20:50. Показов 7082. Ответов 1 Метки нет (Все метки) Дано 3-х значное число, определить количество всех различных 3-х значных чисел, которые можно составить из цифр этого числа. Заранее спасибо. Добавлено через 1 минуту Помогите пожалуйста, вся надежда на вас Добавлено через 24 минуты Пожалуйста, мне срочно нужно. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Определить количество всех различных 3-х значных чисел, которые можно составить из цифр данного числа

Решение