Анаграммы

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

raxp, не исключает...
вот та же в принципе программа, что и у Вас

PHP код:

Program p2;
const
    n=12;
var
    s:string[n];
    i,m:integer;
    rezult:longint;
function fact(m: integer) : longint;
  begin
    if m<= 1 then
      fact:= 1
    else
      fact:=m*fact(m - 1)
  end;
begin
    writeln('Vvedite stroku');
    readln(s);
    m:=length(s);
    rezult:=fact(m);
    writeln(rezult);
end. 


[raxp]

вы видите из слова - loto видимо - otol несколько раз, забывая что o и o для комбинаторики это символы разные. если вы действительно хотите убрать, то...

 function fak(b:integer):Longint;
 var
p:Longint;
j:integer;
begin
p:=1;
for j:=2 to b do p:=p*j;
fak:=p;
END;

procedure TForm1.SpeedButton1Click(Sender: TObject);
 LABEL 1,2;
 const T=1.111111111;
VAR A:ARRAY[1..50] OF string;{'INTEGER;'}
    M,X1,k,Q,X,Y,I,U:Longint;
    n:Longint;
    w,j,nz,z,ii:integer;
    H:REAL;
    B:ARRAY[1..50] OF INTEGER;
    s,tt:string;
    p: boolean;
BEGIN
 memo1.clear;
 s:= maskedit1.Text;
 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;
    tt:= '';
    FOR I:=1 TO M DO tt:= tt+ s[b[i]];
    w:=w+1;
    if j=w then
     begin
      j:=j+nz;
     end   else begin // ВОТ ТО ЧТО ВЫ ХОТИТЕ!
      p:= true;
      for ii:= 0 to memo1.Lines.Count-1 do
       if tt= memo1.Lines[ii] then p:= false;
      if p then memo1.Lines.Add(tt);//WRITE(' ');
      // --------------------
     end;
    n:=n+1;
 UNTIL (n>fak(z));
2: memo1.Lines.Add('кол-во ='+ inttostr(memo1.Lines.Count-1))
 end;

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

опробовала.
повторы она тоже не исключает

[raxp]

ЧИТАЕМ http://www.programmersforum.ru/showp...9&postcount=12

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

Ну это уже ближе к истине))