Составьте программу, позволяющую проверить, можно ли из букв слова Х составить слово У....

Question

Составьте программу, позволяющую проверить, можно ли из букв слова Х составить слово У. Буквы можно переставлять, но каждую букву можно использовать только 1 раз.

Answer 1

// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
begin
  var x:=ReadlnString('Введите слово Х:');
  var y:=ReadlnString('Введите слово Y:');
  var Good:=True;
  for var i:=1 to y.Length do begin
    var p:=Pos(y[i],x);
    if p>0 then Delete(x,p,1)
    else begin Good:=False; Break end
    end;
  if Good then
    Writeln('Можно составить ',y)
  else
    Writeln('Нельзя составить ',y)
end.

Тестовое решение:
Введите слово Х: образование
Введите слово Y: название
Нельзя составить название

Введите слово Х: образование
Введите слово Y: барон
Можно составить барон

Comments

прошу прощения, а что здесь значит переменная p?

---

я ее переделала немного, ибо насчет break препод бомбит

---

program pr;
var
x,y:string;
i,p:integer;
f:boolean;
begin
writeln('введите слово');
readln(x);
writeln('введите слово');
readln(y);
F:=True;
for i:=1 to Length(y) do begin
p:=Pos(y[i],x);
if p>0 then Delete(x,p,1)
else begin f:=False;end;
    end;
  if f then
    Writeln('Можно составить ')
  else
    Writeln('Нельзя составить ')
end.

---

Не завидую Вам, если у Вас "препод". Лучше бы был преподаватель, может не бомбил бы тогда.

---

прошу прощения, а что здесь значит переменная p?

---

p - позиция найденного символа в строке