Конфеты продаются наборами по 3 штуки, причем в упаковке есть конфеты каждого из двух видов (то есть в одной упаковке лежат две конфеты одного вида и одна другого ).
По внешнему виду упаковки нельзя понять, какие конфеты лежат внутри.
Чтобы никого не обидеть, всем в классе нужно раздать конфеты одного вида, а оставшиеся девочка заберёт домой. Алисе нужно собираться в школу, поэтому она попросила вас посчитать, какое минимальное число упаковок нужно купить, чтобы конфет хватило на всех.
Сделай программу на языке программирования Pascal
pascal
program CandyDistribution;
var
packs: Integer; // количество упаковок
candies: Integer; // количество конфет
i: Integer; // счетчик цикла
j: Integer; // счетчик цикла
sum1: Integer; // сумма конфет первого вида
sum2: Integer; // сумма конфет второго вида
found: Boolean; // флаг, указывающий на то, что мы нашли решение
begin
found := False;
packs := 1;
// начинаем перебор с 1 упаковки
while not found do
begin
// считаем общее количество конфет
candies := packs * 3;
// перебираем все возможные комбинации конфет
for i := 0 to packs do
begin
sum1 := i + (packs - i);
sum2 := candies - sum1;
// проверяем, выполняется ли условие
if (sum1 = 2 * (packs - i)) or (sum2 = 2 * i) then
begin
// если условие выполняется, выводим результат и выходим из цикла
writeln('Минимальное число упаковок: ', packs);
found := True;
break;
end;
end;
// увеличиваем количество упаковок
packs := packs + 1;
end;
end.
Нажимая «Регистрация» или «Войти через Google», вы соглашаетесь с Публичной офертой, даете Согласие на обработку персональных данных, а также подтверждаете что вам есть 18 лет
Нажимая «Регистрация» или «Войти через Google», вы соглашаетесь с Публичной офертой, даете Согласие на обработку персональных данных, а также подтверждаете что вам есть 18 лет