Задана последовательность из 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
желательно подробный разбор

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

Пожалуйста.

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

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

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

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

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

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(количество);

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

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