Задана последовательность из 30 элементов. Сколько пар чисел из этой последовательности в...

Question

Задана последовательность из 30 элементов. Сколько пар чисел из этой последовательности в произведении дают число кратное 20? 25 13 6 33 9 22 39 23 23 16 12 14 29 25 14 34 25 22 25 32 10 33 22 32 25 31 35 9 20 24 желательно подробный разбор

Answer 1

Задачка, которая программируется в один оператор ))

PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 Seq(25, 13, 6, 33, 9, 22, 39, 23, 23, 16, 12, 14,

     29, 25, 14, 34, 25, 22, 25, 32, 10, 33, 22, 32, 25, 31,

     35, 9, 20, 24)

   .Pairwise.Where(t -> t[0] * t[1] mod 20 = 0).Count.Println

end.

Результат

5

---

Comments

Ну т.е. показали сортировку, а дальше только Sort или OrderBy, зачем постоянно тратить время на копирование одних и тех же блоков кода из программы в программу?

---

Полагаю, внутреннее устройство конструкций и алгоритмов они должны знать как "Отче наш".

---

Иначе чем они отличаются от обычного "пользователя", скачавшего из Интернета образцы из какого-нибудь журнала "Сделай сам - для кодера-прогера" и возомнившего себя специалистом?

---

Ну... язык создан на одной из кафедр мехмата нашего Южного федерального университета. На нем учат даже будущих специалистов в области фундаментальной информатики.

---

Конечно, после первого семестра они уходят на другие языки, но уже знают все алгоритмы и там не надо их снова расписывать начинать.

---

Не хочу углубляться в обсуждение этой темы, потому что, во-первых, я педагогического опыта не имею, чтобы предметно рассуждать о ней, во-вторых, от того, что сегодня выдают за "высшее образование", меня тошнит.

---

И не надо рисовать блок-схем. Преподаватели алгоритмы объясняют прямо в виде кода.

---

Мехмат универа (настоящего) все же дает пока что приличное образование.

---

Ну дай Бог, может, не всё так безнадёжно.

---

Может быть. Тоже хочется в это верить.

Answer 2

71.

var массив = [25, 13, 6, 33, 9, 22, 39, 23, 23, 16, 12, 14, 29, 25, 14, 34, 25, 22, 25, 32, 10, 33, 22, 32, 25, 31, 35, 9, 20, 24], количество = 0;

for (let сч1 = 0; сч1 < массив.length - 1; сч1++)

for (let сч2 = сч1 + 1; сч2 < массив.length; сч2++)

 if (массив[сч1] * массив[сч2] % 20 == 0)

 количество++;

alert(количество);

Comments

большое спасибо о великий маг

---

Пожалуйста.