М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
mikeman
mikeman
01.01.2023 23:43 •  Информатика

Задача 6: Наборы пирожных На складе кондитерской фабрики хранятся пирожные двух видов — круассаны и эклеры. Круассанов A штук, а эклеров — B штук. Есть неограниченный запас подарочных коробок, в каждую коробку можно положить только три пирожных. При этом требуется, чтобы в коробке были пирожные обоих видов, то есть в одну коробку можно положить два круассана и один эклер или один круассан и два эклера.

Определите, можно ли упаковать все имеющиеся пирожные в коробки и выведите подходящий размещения пирожных по коробкам.

Входные данные

Программа получает на вход два целых числа A и B, записанных в отдельных строках. 1 ≤ A ≤ 109, 1 ≤ B ≤ 109.

Выходные данные

Если можно разложить все пирожные по коробкам в соответствии с условием задачи, программа должна вывести два целых числа. Первое число равно количеству коробок, в которых лежит два круассана и один эклер. Второе число равно количеству коробок, в которых лежит один круассан и два эклера.

Если разложить все пирожные по коробкам нужным нельзя, программа должна вывести одно число −1.

Система оценивания

Решение, правильно работающее только для случаев, когда числа A и B не превосходят 100, будет оцениваться в


Задача 6: Наборы пирожных На складе кондитерской фабрики хранятся пирожные двух видов — круассаны и
Задача 6: Наборы пирожных На складе кондитерской фабрики хранятся пирожные двух видов — круассаны и

👇
Ответ:
DjRio
DjRio
01.01.2023

Программа написана на из 100, но пока это лучший результат, язык Python

a = int(input())

b = int(input())

if (a + b) % 3 != 0:

   print(-1)

elif (a + b)/3 > a or (a + b)/3 > b:

   print(-1)

elif (a + b)/3 == a:

   print(0)

   print((a + b)/3)

elif (a + b)/3 == b:

   print((a + b)/3)

   print(0)

else:

   if a > b:

       print(int(((a + b)/3)- (((a + b)/3)-(a - b

       print(int(((a + b)/3)-(a - b)))

   if b > a:

       print(int(((a + b)/3)- (((a + b)/3)-(b - a

       print(int(((a + b)/3)-(b - a)))

4,7(44 оценок)
Ответ:
BusL81
BusL81
01.01.2023

a = int(input())

b = int(input())

if (a + b) % 3 != 0:

  print(-1)

else:

  if (a // b == 2) or (b // a == 2):

       

      if a % 2 < b % 2:

          print((a + b) // 3, 0)

           

      elif a % 2 > b % 2:

          print(0, (a + b) // 3)

      else:

          print(-1)

  else:

      if (b - a ==  b % a) or (a - b == a % b):

          print(a // 3, (b - (a // 3)) // 2)

      else:

          print(-1)

4,6(88 оценок)
Открыть все ответы
Ответ:
emkaemkovich902
emkaemkovich902
01.01.2023

{Напишите программу, которая находит минимальное и максимальное

среди чётных положительных чисел, записанных в файле,

и выводит результат в другой файл.}

var f:text;

 min, max,a :integer;

 find:boolean;{есть/нет числа удовлетворяющие условию}

begin

 assign(f,'dan.txt'); reset(f);

 min:=0; max:=0;

 find:=false;

 while not eof(f) do

 begin

 read(f,a);

 if not find and (a>0) and (a mod 2=0) then

 begin

  min:=a; find:=true;

 end

 else

 if find and (a>0) and (a mod 2=0) and (min>a) then

  min:=a;

 if (a>0) and (a mod 2=0) and (max<a) then

  max:=a;

 end;

 close(f);

 assign(f,'res.txt');

 rewrite(f);

 if max=0 then writeln(f,'чётных положительных чисел нет')

 else

  writeln(f,'min среди чётных положительных чисел =',min, chr(13),

     'max среди чётных положительных чисел нет',max);

 close(f);

end.

Подробнее - на -

Объяснение:

4,5(89 оценок)
Ответ:
schakirovamarga
schakirovamarga
01.01.2023
{Напишите программу, которая находит минимальное и максимальное
среди чётных положительных чисел, записанных в файле,
и выводит результат в другой файл.}
var f:text;
  min, max,a :integer;
  find:boolean;{есть/нет числа удовлетворяющие условию}
begin
 assign(f,'dan.txt'); reset(f);
 min:=0; max:=0;
 find:=false;
 while not eof(f) do
 begin
  read(f,a);
  if not find and (a>0) and (a mod 2=0) then
  begin
   min:=a; find:=true;
  end
  else
  if find and (a>0) and (a mod 2=0) and (min>a) then
   min:=a;

  if (a>0) and (a mod 2=0) and (max<a) then
   max:=a;
 end;
 close(f);
 assign(f,'res.txt');
 rewrite(f);
 if max=0 then writeln(f,'чётных положительных чисел нет')
  else
   writeln(f,'min среди чётных положительных чисел =',min, chr(13),
      'max среди чётных положительных чисел нет',max);
  close(f);
end.
4,7(88 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ