Предмет: Информатика, автор: 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(количество);

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

Аноним: Пожалуйста.

Автор ответа: Аноним

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

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

Приложения:

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

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

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

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

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

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

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

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

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

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

Предыдущий вопрос

Следующий вопрос

Интересные вопросы

Предмет: Английский язык, автор: yfxoyfxkyfclug5f7ug

помогите пожалуйста очень срочно

5 лет назад

Предмет: Алгебра, автор: fejessz

1) (m + n) 2 = …:
A) m 2 + n 2 ; B) m 2 + 2mn + n 2 ; C) m 2 + 2mn - n 2
2) (2b – c)(2b + c) = …:
A) 2b 2 + c 2 ; B) c 2 – 4b 2 ; C) 4b 2 – c 2 ; D) 2b 2 - c 2 ;
3) 24a +4a 2 + 36 = …:
A) (4a – 6)( 6 + 4a); B) (2a + 6) 2 C) (2a – 6) 2 ; D) (2a – 6)(2a + 6);
помогите пожалуйста