24 грамма
ну типо килобайт 1024 байта))))))))))))))
while n <= m do n := 1;
while n > m do n := 0;
write(n);
Если n <= m, то n = 1,
если n > m, то n = 0 (любое число)
При этом условные операторы использованы не будут.
Есть вариант попроще: write(ord(n <= m))
Если n <= m, то будет выведено 1 (порядковый номер true), иначе будет выведено 0 (порядковый номер false)
1) МОЛОКО: не в бутылке (по условию задачи); не в стакане, т.к. "<span>стакан </span><span>стоит </span>между <span>банкой и сосудом с </span>молоком"; не в банке, потому что: "между банкой и<span> сосудом с </span>молоком<span>"; отсюда следует, что </span>МОЛОКО В КУВШИНЕ.
<span>2) ВОДА: не в кувшине (там молоко), не в бутылке (по условию задачи), не в банке (по условию задачи); получается, что ВОДА В СТАКАНЕ.
3) ЛИМОНАД: не кувшине (там молоко); не в стакане (там вода); не в кувшине, т.к. "сосуд с лимонадом стоит между кувшином и.."; получается, что ЛИМОНАД В БУТЫЛКЕ.
4) КВАС В БАНКЕ.
Ответ: в бутылке лимонад, в стакане вода, в кувшине молоко, в банке квас.</span>