На складе кондитерской фабрики хранятся пирожные двух видов — круассаны и эклеры. Круассанов A штук, а эклеров — B штук. Есть неограниченный запас подарочных коробок, в каждую коробку можно положить только три пирожных. При этом требуется, чтобы в коробке были пирожные обоих видов, то есть в одну коробку можно положить два круассана и один эклер или один круассан и два эклера. Определите, можно ли упаковать все имеющиеся пирожные в коробки и выведите подходящий размещения пирожных по коробкам. Если можно разложить все пирожные по коробкам в соответствии с условием задачи, программа должна вывести два целых числа. Первое число равно количеству коробок, в которых лежит два круассана и один эклер. Второе число равно количеству коробок, в которых лежит один круассан и два эклера. Если разложить все пирожные по коробкам нужным нельзя, программа должна вывести одно число −1. На
Ответы
2) Номер страницы
3) Библиотечный каталог — совокупность расположенных по опр-м правилам библиографических записей на документы, раскрывающих состав и содержание фонда библиотеки или информационного центра.
4) Жёсткий диск
5) Полное имя может включать следующее:
протокол или доступа
имя или адрес компьютера, узла сети
устройство хранения, диск
путь к каталогу
собственно имя файла, которое может содержать его расширение
версия или номер ревизии
6) Область поиска - область памяти, в пределах которой осуществляется поиск
3) Библиотечный каталог — совокупность расположенных по опр-м правилам библиографических записей на документы, раскрывающих состав и содержание фонда библиотеки или информационного центра.
4) Жёсткий диск
5) Полное имя может включать следующее:
протокол или доступа
имя или адрес компьютера, узла сети
устройство хранения, диск
путь к каталогу
собственно имя файла, которое может содержать его расширение
версия или номер ревизии
6) Область поиска - область памяти, в пределах которой осуществляется поиск
//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)
1)
begin
var a:=ArrRandom(ReadInteger('n='),20,79); a.Println;
var x:=a.Where(t->t.IsEven).Count;
If x>0 then Println('Количество четных:',x) else Println('Четных нету');
var y:=a.Where(t->t mod 10=6).Count;
If y>0 then Println('Количество оканч. на 6:',y) else Println('Оканч. на 6 нету');
end.
Пример:
n= 5
79 29 27 74 27
Количество четных: 1
Оканч. на 6 нету
2)
begin
var a:=ArrRandom(10,0,100); a.Println;
Println('Кол-во пар:',Range(0,8,2).Where(t->a[t]=a[t+1]).Count)
end.
Пример:
56 93 72 72 71 24 37 55 91 91
Кол-во пар: 2
//Версия 3.3, сборка 1634 (14.02.2018)
1)
begin
var a:=ArrRandom(ReadInteger('n='),20,79); a.Println;
var x:=a.Where(t->t.IsEven).Count;
If x>0 then Println('Количество четных:',x) else Println('Четных нету');
var y:=a.Where(t->t mod 10=6).Count;
If y>0 then Println('Количество оканч. на 6:',y) else Println('Оканч. на 6 нету');
end.
Пример:
n= 5
79 29 27 74 27
Количество четных: 1
Оканч. на 6 нету
2)
begin
var a:=ArrRandom(10,0,100); a.Println;
Println('Кол-во пар:',Range(0,8,2).Where(t->a[t]=a[t+1]).Count)
end.
Пример:
56 93 72 72 71 24 37 55 91 91
Кол-во пар: 2
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Написать программу, которая по введенному m вычисляет f=mg, где g=98. надо,
Автор: vodolaz8384
Вычислите значения переменных
Автор: tanyamurashova11352
можно лучший ответ пазя?