ответ:
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.
объяснение:
Моноболестүрлер туралы телот.
-Автүд ассенжолбасиңүлкен бе?
-Сәуле. Менің отбасы үлкен. Біздің үйде жеті адам тұрамыз: атам мен адам, ата-ана,
SFAN, KEPOXane Meh.
-Қандайтааша
-Иs, Менің ойша үйретресе үлкен адамның болғаны жақсы. Қазақ халқында бұл
кейинде керемет сездер берғой.Үлкені бар үйдің қазынасы бар деге.
-Дұрыс айтесем де бұл оймен толықтай келісемін.
-Атамекаем беге үнемі есептері мен ақылдарын айтып, бері дүрекжолға салып,
мейірімді,беурол болунорбиелеп отырады.
-Не деген кереметкеріне Мұндай үлкен обесіңде соlңдік ережелері мен салт-
достүрлері де бар шар
-И, Орине, бер. Мелерекелерге келер болсақ, бе ардайым бір-бірімізге кез келген
Шеруде комектесеһүлкендераситени од стей орындайм. Ал отбасылық
дәстүрлері ботокол. Сонандемеген аң унейны- ол демалыс күнгі отбасылық ас
анеміндетті түрде ұлтқа амбасбармақ пісіред, и акем болса, дәмді бауырсақтарын
сірлейд Ам бе бауырларимиздан қосылып үй жинастырып, келер аптаның сабағын
оқимыз. Осыдемалыстаен од туйге қанақа кел, Мен сені ее отбасыммен
Тенистырайын,
-Шестру кол разомет, Міндетті түрде келемін.
Поделитесь своими знаниями, ответьте на вопрос:
Тест прошел проверку