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

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