ответ:
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) опасности, связанные с воздействием веществ, разрушающих организм человека (алкоголизм, наркомания и курение)
природная опасность:
1) землетрясения.
2) наводнения.
3) лесные .
техногенная опасность:
1) аварии на промышленных объектах.
2) аварии на аэс и предприятиях.
3) аварии на магистральных турбопроводах.
Поделитесь своими знаниями, ответьте на вопрос:
Почему факелы лучше видны на краю солнечного диска?