ответ:
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.
объяснение:
Объяснение: Характеристики Астероиды Кометы Метеориты Вида на небе Объект, похожий на звезду Диффузный объект «Падающая звезда» Орбиты Главный пояс астероидов (a ~ 2,8 а. е.; P ~ 5 лет); Пояс Койпера (a > 30 а. е.; P ~ 300 лет) Кометы короткого периода P < 200 лет, долгого периода — P > 200 лет; форма орбит — вытянутые эллипсы Разнообразные Средние размеры От десятков метров до сотен километров Ядро — от 1 км до десятков км; хвост ~ 100 млн км; голова ~ 100 тыс. км От микрометров до метров Состав Каменистые Льды с каменными частичками, органические молекулы Железные, каменные, железо-каменные Происхождение Столкновение планетезималей Остатки первичного вещества на окраинах Солнечной системы Осколки от столкновений, остатки эволюции комет Последствия столкновения с Землёй Взрыв, кратер Воздушный взрыв Воронка на Земле, иногда метеорит
Поделитесь своими знаниями, ответьте на вопрос:
Сколько звёзд солнечного типа может образоваться из облака радиусом 100 пк, давлением 10~15 Па и температурой 50 К?