ответ:
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.
объяснение:
Поделитесь своими знаниями, ответьте на вопрос:
Цена на фрукты возросла на 15%, за счет чего на сумму в 230 руб. было приобретено фруктов на 3кг меньше. На сколько рублей возросла цена 1кг фруктов?
230 – 100% - Х кг
230 – 1,5% - (х-3) кг
1) 0,15*230р = 34,5 – 15% подорожали (за 3 кг)
2) 34,5 : 3 = 11.5(р) – стал стоить 1 кг.
3) 230 : 11,5 = 20 (кг)–купили
4) 20 + 3=23(кг) – можно было раньше купить
5) 230 : 23 = 10 (р) – 1 кг яблок раньше
6) 11,5 – 10 = 1,5 (р)– взросла цена за 1 кг.
Ответ: 1,5руб.