Строки

[Марина Орёл]

Строки

Считая, что в каждом из слов X и Y нет повторяющихся литер, присвоить переменной B значение true, если слова X и Y оличаются только порядком входящих в них литер,и значение fals иначе.

 

[Vladimir_S]

Считая, что в каждом из слов X и Y нет повторяющихся литер, присвоить переменной B значение true, если слова X и Y оличаются только порядком входящих в них литер,и значение fals иначе.

Например, так:

VAR
 X,Y:STRING;
 b:Boolean;
 i,j:BYTE;
BEGIN
 WriteLn('Enter X:');
 ReadLn(X);
 WriteLn('Enter Y:');
 ReadLn(Y);
 If Length(X)<>Length(Y) then
  b:=false
 else
  begin
   i:=0;
   Repeat
    i:=i+1;
    b:=false;
    j:=0;
    repeat
     j:=j+1;
     if X[i]=Y[j] then b:=true;
    until b or (j=Length(X));
   Until (b=false) or (i=Length(X));
  end;
 WriteLn(b);
 ReadLn;
END.

 

[Марина Орёл]

Спасибо большое!!!!!!!!!!!!!!!!!!!