Задание №17 ЕГЭ Информатика с ответом и решением
Ответ: 40436496 19999
Условие
В файле содержится последовательность из 10 000 целых положительных чисел. Каждое число не превышает 10 000. Определите и запишите в ответе сначала количество пар элементов последовательности, для которых произведение элементов не кратно 14, затем максимальную из сумм элементов таких пар. В данной задаче под парой подразумевается два различных элемента последовательности. Порядок элементов в паре не важен.
Подсказки — как подойти к решению
- Данные из файла удобно прочитать в список целых чисел: в файле 10 000 значений по одному в строке.
- Перебирай пары различных элементов с i < j: порядок в паре не важен, иначе количество удвоится.
- Условие здесь отрицательное — произведение не должно делиться на 14, то есть в паре не должно одновременно оказаться чётного множителя и множителя, кратного 7; счётчик и максимум обновляй только для таких пар.
Решение
Сначала считаем все числа из файла в массив. Для каждой пары будем проверять, кратно ли 14 произведение элементов пары. Если произведение не кратно 14, будем увеличивать значения счётчика count и проверять, больше ли сумма элементов пары текущей максимальной суммы. Если сумма элементов пары больше текущей максимальной суммы, будем обновлять значение переменной maxsum.
Приведём решение задачи на языке Pascal.
var
i, j: integer;
count: longint;
maxsum: integer;
arr: array[1..10000] of integer;
f: text;
begin
assign(f,'C:\17.txt');
reset(f);
maxsum := 0;
count := 0;
for i := 1 to 10000 do readln(f, arr[i]);
for i := 1 to 10000 - 1 do
for j := i + 1 to 10000 do begin
if (arr[i] * arr[j] mod 14 <> 0) then begin
count := count + 1;
if arr[i] + arr[j] > maxsum then maxsum := arr[i] + arr[j];
end;
end;
writeln(count, ' ', maxsum);
end.
Приведём решение Николая Чуркина (Тимашевск) на языке Python.
count = m = 0
f = open('17.txt')
l = [int(i) for i in f]
for i in range(len(l) - 1):
for j in range(i + 1, len(l)):
if l[i] * l[j] % 14 != 0:
count += 1
m = max(m, l[i] + l[j])
print(count, m)
В результате работы данного алгоритма при вводе данных из файла ответ — 40436496 19999.
Примечание.
Путь к файлу необходимо указать согласно расположению файла на Вашем компьютере.
Приведём решение Сергея Донец на PascalABC.NET:
begin
var p:=ReadAllLines('17.txt').Select(x->x.ToInteger);
var m:=p.Combinations(2)
.Where(\(a,b)->(a*b).notdivs(14)).ToArray;
m.Length.print;
m.Max(\(a,b)->a+b).Print;
end.
Типичные ошибки
- Числа записаны в обратном порядке: сначала количество пар, затем максимальная сумма.
- Условие заменено на противоположное: посчитаны пары, где произведение кратно 14. Частица «не» в условии меняет смысл, поэтому проверяй сравнение остатка с нулём.
В тренажёре: подсказки по шагам, разбор твоей ошибки ИИ-репетитором (он не даёт готовый ответ), повторение ошибок по интервалам и общий прогресс. Все задания №17 по информатике