Заданы две строки А и В. Можно ли переставить буквы в одном из слов так , чтобы слова...

Question

Заданы две строки А и В. Можно ли переставить буквы в одном из слов так , чтобы слова стали одинаковыми? формат входных данных
первая строка входного файла содержит строку A состоящую из строчных букв английского алфавита (1<=|B|<=1000).<br> вторая строка содержит строку B в таком же формате
формат выходных данных

Comments

Вылетает по выходу за границы массива. Нужно исправить внутренний цикл j:=1; while j<=length(b) do begin; if a[i]=b[j] then begin; delete(b,j,1); inc(k); break; end; j:=j+1; end;

Answer 1

//Pascal ABC.NET Версия 2.2 Сборка 790
var a,b:string;
i,j,k:integer;
begin;
readln(a);
readln(b);
for i:=1 to length(a) do
   begin;
     for j:=1 to length(b) do
      begin;
        if a[i]=b[j] then
          begin;
            delete(b,j,1);
            inc(k);
          end;
       end;
end;
if k=length(a) then writeln('Да') else writeln('Нет');
end.

Пример ввода:
abc
cba
Пример вывода:
Да