Размещено 5 лет назад по предмету Информатика от youapell

Задана последовательность из 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(количество);
1. Ответ на вопрос
  
  Ответ на вопрос дан youapell
  
  большое спасибо о великий маг
2. Ответ на вопрос
  
  Ответ на вопрос дан Аккаунт удален
  
  Пожалуйста.
Ответ на вопрос

Ответ на вопрос дан Аккаунт удален

Задачка, которая программируется в один оператор ))
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
1. Ответ на вопрос
  
  Ответ на вопрос дан Аккаунт удален
  
  Не хочу углубляться в обсуждение этой темы, потому что, во-первых, я педагогического опыта не имею, чтобы предметно рассуждать о ней, во-вторых, от того, что сегодня выдают за "высшее образование", меня тошнит.
2. Ответ на вопрос
  
  Ответ на вопрос дан Аккаунт удален
  
  И не надо рисовать блок-схем. Преподаватели алгоритмы объясняют прямо в виде кода.
3. Ответ на вопрос
  
  Ответ на вопрос дан Аккаунт удален
  
  Мехмат универа (настоящего) все же дает пока что приличное образование.
4. Ответ на вопрос
  
  Ответ на вопрос дан Аккаунт удален
  
  Ну дай Бог, может, не всё так безнадёжно.
5. Ответ на вопрос
  
  Ответ на вопрос дан Аккаунт удален
  
  Может быть. Тоже хочется в это верить.