Цитата:
Сообщение от Марина Орёл
Считая, что в каждом из слов 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.