Определите количество пар чисел, произведение которых кратно 15, а их
Условие
Файл содержит последовательность неотрицательных целых чисел, не превышающих 10 000. Назовём парой два идущих подряд элемента последовательности. Определите количество пар чисел, произведение которых кратно 15, а их сумма делится на 7. В ответе запишите два числа: сначала количество найденных пар, а затем — максимальную сумму элементов таких пар.
Задание 17Ответ:
Ответ
Ответ и полный разбор откроются после входа
Посмотреть ответРешение по шагам
Как рассуждать
Решение. Решим задачу перебором. Приведём решение данной задачи на языке PascalABC:var x, y, count, maxsum: integer;f: text;begin assign(f,'C:\17.txt'); reset(f); count := 0; maxsum := 0; readln(f, x); while not eof(f) do begin readln(f, y); if ((x * y) mod 15 =
Осталось ещё 4 шага
and ((x + y) mod 7 =…
then begin count := count + 1; if (x + y >…
and (l[i] + l[i + 1]) % 7 == 0: count += 1 m…
Приведём решение Сергея Донец на…
Бесплатно · займёт минуту