Составить по паскалю абс назовем слово а следом слова в, если в можно составтиь из букв, входящих в а, при этом каждая буква в в может использоватся не чаще, чем она астречается в а. например, слово "ультрамарин" - след слова "ланита" или "мир", но не является следом слова "мера" (оно содержит букву "е", которой нет в слове "ультрамарин") или "римма" (буква "м" здесь встречается двва раза, а вслове "ультрамарин" - один раз). два слова х и у. следует проверить, является ли слово у следом слова х. извествно, что оба слова содержат прописные буквы латинского алфавита и имеют длину до 30 симвлов. формат ввода: х у формат вывода: сообщение "yes", если слово у является следом слова х сообщение "no", если слово не является следом слова х

MRSAVVA MRSAVVA    2   08.09.2019 09:10    0

Ответы
ivanova6060 ivanova6060  07.10.2020 00:33
Var x,y: string; l,k,i:integer;
begin
readln(x);
readln(y);
l:=length(x);
k:=0;
for i:=1 to l do
 if pos(x[i],y)>0 then
  begin
  delete(y,pos(x[i],y),1);
  k:=k+1;
  end;
if k=l then writeln('YES') else writeln('NO');
end.

Пример:
MAMAPROGRAMMA
YES
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика