Составить по паскалю абс назовем слово а следом слова - вопрос №8058051 от MiKaSaKuN 17.04.2021 05:14

Question

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

MiKaSaKuN · Answer

Var x,y: string; l,k,i:integer;beginreadln(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.Пример:MAMAPROGRAMMAYES...