ответ:
var
mn, st: set of char;
s, s1: string;
f: char;
i, k, p: integer;
begin
writeln('введите слово x');
readln(s);
for i : = 1 to length(s) do
mn : = mn + [s[i]];
writeln('введите слово y');
readln(s1);
for i : = 1 to length(s1) do
st : = st + [s1[i]];
if (st < = mn) and (length(s1) < = length(s)) then writeln('можно составить') else writeln('нелья');
end.
объяснение:
1.Маркировка - это процесс нанесения условных знаков на товар. Она нужна, чтобы идентифицировать товар и расшифровать его характеристики и свойства.
Цель маркировки – снижение оборота контрафактных товаров в стране. Те, кто подделывает товар, не покупают лицензию и не платят налоги, не проходят проверки.
2.
на картинке
3.на 2 картинке
4.
всегда по разному. каждый человек может допустить ошибку, так что если я ошибусь ни чего страшного не произойдёт
5.
интернет
совет от родителе или людей по старше
разные книги

Поделитесь своими знаниями, ответьте на вопрос:
тест прошел проверку, пользуемся)