Question

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

Answer 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.