Анаграммы

[Паскалька^^]

Для данного слова длиной до 12 символов подсчитать число различных анаграмм (слов полученных перестановкой его букв).
Пример. лото Ответ: 12
Примечание. Имеются в виду слова: лото, лоот, лтоо, оолт, олот, олто, тоол, толо, тлоо, оотл, отло, отол

[Вавел из ГМТУ]

Решение таких задач есть в разделе комбинаторика или чтото такое.
Такчто смотреть в ту сторону.. Элементарно всё.

[Паскалька^^]

я себе уже всю голову сломала...
а можно ссылочку на раздел?

[Вавел из ГМТУ]

Возьмем m белых карточек, занумерованныхот 1 до m, и n черных
карточек, занумерованных от 1 до n. Всего имеется (m+n)! перес-
тановок этих карточек. Возьмем произвольно одну из таких перес-
тановок. На белой карточке напишем букву Б, а на черной - букву
Ч. Получим анаграмму слова, состоящего из m букв Б и n букв Ч.
Одна и та же анаграмма может возникнуть у нас m!*n! способами,
поэтому различных анаграмм этого слова имеется

                                   (m+n)!
                      С(m,n) = -------
                                      m! n!

Тема называется комбинаторика. Формулу я привёл.
В задаче используется факториал, и имено поэтому стоит ограничение "до 12 символов".

[raxp]

когда-то делал подобное оооо-очень давно, поделюсь (алгоритм во сне решил )...

  USES CRT;
 LABEL 1,2;
 const T=1.111111111;
function fak(b:integer):Longint;
var
p:Longint;
j:integer;
begin
writeln('Программа перебора вариантов из букв слова...');
p:=1;
for j:=2 to b do p:=p*j;
fak:=p;
END;
VAR A:ARRAY[1..50] OF string;{'INTEGER;'}
    M,X1,k,Q,X,Y,I,U:Longint;
    n:Longint;
    w,j,nz,z:integer;
    H:REAL;
    B:ARRAY[1..50] OF INTEGER;
    s:string;
BEGIN
 WRITE('Введите слово...'); readln(s);
 z:=length(s);
 nz:=trunc(80/(z+1));
 j:=nz;
 w:=0;
 M:=z;
 Q:=1;
 FOR I:=1 TO M-1 DO  Q:=Q*10;
 X:=TRUNC(T*Q);
 REPEAT
  1: {'ПРОД.'};
    X:=X+1;
    X1:=X;
    FOR I:=1 TO M DO
     BEGIN
      H:=X1/10;Y:=(X1 MOD 10);
      X1:=TRUNC(H);
      B[I]:=y;
     END;
    FOR I:=1 TO M DO IF (B[i]>M) OR (B[I]=0) THEN GOTO 1;
    FOR U:=1 TO M-1 DO FOR I:=U+1 TO M DO IF (B[U]=B[I]) THEN GOTO 1;
    IF (B[1]>M) THEN GOTO 2;
    FOR I:=1 TO M DO WRITE(s[b[i]]);
    w:=w+1;
    if j=w then
     begin
      WRITEln;
      j:=j+nz;
     end   else WRITE(' ');
    n:=n+1;
 UNTIL (n>fak(z));
2: writeln; writeln(n-1);
  WRITELN(' Конец... ');
 readln;
END.

[Паскалька^^]

Вавел из ГМТЭ, я уже решала эту задачу с факториалом, но у меня не получается посчитать буквы, которые повторяются в слове и сделать их отдельными переменными.

raxp, а ваша программа не исключает повторы анаграмм

[raxp]

raxp, а ваша программа не исключает повторы анаграмм

- повторы в программе исключены... единственно, последний элемент на экране - повторяет первую комбинацию

[Паскалька^^]

raxp, такую программу как у Вас я написала в более кратком варианте, а вот именно исключение вызвало у меня затруднения

[ОДИНОЧЕСТВО В СЕТИ]

var s:string;
      
   a:array ['a'..'z'] of Integer;
   i,dl:Integer;
   k:Char;
   begin
     s:='loto';
     dl:=Length(s);
     for k:='a' to 'z' do
      a[k]:=0;
     for i:=1 to length(s) do
       Inc(a[s[i]],1);
     for i:=1 to length(s) do
     if a[s[i]]>1 then begin
          dl:=dl-a[s[i]]+1;
          a[s[i]]:=0;
          end;
     Writeln(dl);// кол-во символов без повторов плюс повторы по 1 разу
     Readln;
  end.

[raxp]

а вот именно исключение вызвало у меня затруднения

- вот исключения у меня исключаются, пробуйте exe-ник