Опубликовано 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. Ответ
  
  Ответ дан Аккаунт удален
  
  Может быть. Тоже хочется в это верить.

Самые новые вопросы

Математика - 4 года назад

Решите уравнения: а) 15 4 ∕19 + x + 3 17∕19 = 21 2∕19; б) 6,7x - 5,21 = 9,54

Помогите решить задачи на паскаль.1) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти произведение всех элементов массива.2) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти сумму четных элементов массива.3) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти максимальный элемент массива.4) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти максимальный элемент массива среди элементов, кратных 3.

География - 4 года назад

Почему япония - лидер по выплавке стали?

Математика - 4 года назад

Чему равно: 1*(умножить)х? 0*х?

Русский язык - 4 года назад

В каком из предложений пропущена одна (только одна!) запятая?1.она снова умолкла, точно некий внутренний голос приказал ей замолчать и посмотрела в зал. 2.и он понял: вот что неожиданно пришло к нему, и теперь останется с ним, и уже никогда его не покинет. 3.и оба мы немножко удовлетворим свое любопытство.4.впрочем, он и сам только еле передвигал ноги, а тело его совсем застыло и было холодное, как камень. 5.по небу потянулись облака, и луна померкла.

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

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

Результат

5

Информация