Ввести два слова. Определить, состоят ли они из одного и того же набора символов или нет.

1

Ответы и объяснения

2013-01-17T16:35:57+04:00

var
    s, s2 : String;
    Check : Boolean;
    i : Integer;
begin

    Write('Введите первое слово: ');
    ReadLn(s);


    Write('Введите второе слово: ');
    ReadLn(s2);

    if Length(s) <> Length(s2) then
    begin
        Writeln('No');
        exit;
    end;

    Check := True;

   for i := 1 to Length(s) do
   if pos(s[i], s2) <> 0 then
      Delete(s, pos(s[i], s2), 1)
   else Check := False;

   If Check then
      Writeln('Yes')
   else
      Writeln('No');

   Readln;
end.