Урок 17 Задача 08

Урок 17 Задача 08

Проверить можно ли строки из m перестановкой символов получить строку n.
Примеры (входные данные и ответ):

    abc и bca

-- можно

    abc и baa

-- нельзя

    abcc и cbac

-- можно

    abc4c и cb55ac

-- нельзя

Решение:

program u17z08;
var m,n,k:string;
  i,j,count:integer;
begin
  m:='abcc';
  n:='cbac';
  count:=0;
  for i:=1 to length(m) do
  begin
    for j:=1 to length(n) do
    begin
      if m[i]=n[j] then
      begin
        k:=k+n[j];
        break;
      end;
    end;
  end;
  if m=k then
    write('Mozhno')
  else
    write('Nelzya');
  readln();
end. 

Консоль:

Mozhno