Предмет: Информатика, автор: wyf74302

Помогите пожалуйста с паскалем 9 класс
Вводится четырёхзначное число. Определить количество различных чисел, которое можно составить из цифр данного числа (цифру нельзя дублировать, если в исходное число она входит 1 раз). Само число также учитывается при подсчёте.

Ответы

Автор ответа: UBSilver
1

Ответ:

например число 123 - 6 комбинаций, 120 - 4 комбинации.

также работает с 4значными

Объяснение:

program prog;

var  num,i,j,tmp:integer;

arr:array [1..4] of integer=(-1,-1,-1,-1);

zero: boolean;

begin

writeln('Input number:');

readln(num);

i:=1;j:=1;zero:=false;

while num<>0 do begin

 tmp:=num mod 10;

 if (tmp<>arr[1]) and (tmp<>arr[2]) and (tmp<>arr[3]) and (tmp<>arr[4]) then begin

  arr[i]:=tmp;

  if (zero=false) and (tmp=0) then zero:=true;

  write(i,':');

  writeln('arr[i]=',arr[i]);

  writeln('num=',num);

  i:=i+1

 end;

 num:=num div 10;

end;

num:=1;tmp:=1;

i:=i-1;

for j:=1 to i do num:=num*j;

if zero=true then begin

 for j:=1 to i-1 do tmp:=tmp*j;

 num:=num-tmp;

end;

writeln('vsego chisel =',num);

end.


wyf74302: Спасибо большое!
Похожие вопросы
Предмет: Математика, автор: dinara031
Предмет: Биология, автор: 0987654321krymp054b4