Задание №17 ЕГЭ Информатика с ответом и решением
Ответ: 170 18662
Условие
Файл содержит последовательность неотрицательных целых чисел, не превышающих 10 000. Назовём парой два идущих подряд элемента последовательности. Определите количество пар чисел, произведение которых кратно 15, а их сумма делится на 7. В ответе запишите два числа: сначала количество найденных пар, а затем — максимальную сумму элементов таких пар.
Подсказки — как подойти к решению
- Файл содержит числа по одному в строке, обрабатывай их программой. Пары — соседние элементы, поэтому иди по массиву от первого до предпоследнего и смотри на элементы i и i + 1.
- Произведение кратно 15, если в паре вместе набираются множители 3 и 5, а они могут стоять в разных элементах. Сумму проверяй на кратность семи отдельным условием.
Решение
Решим задачу перебором. Приведём решение данной задачи на языке 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 = 0) and ((x + y) mod 7 = 0) then begin
count := count + 1;
if (x + y > maxsum) then maxsum := x + y;
end;
x := y;
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):
if ((l[i] * l[i + 1]) % 15 == 0) and (l[i] + l[i + 1]) % 7 == 0:
count += 1
m = max(m, l[i] + l[i + 1])
print(count, m)
Результат работы программы — 170 18662.
Ответ: 170 18662.
Приведём решение Сергея Донец на PascalABC.NET:
begin
var p:=ReadAllText('17.txt').ToIntegers.Pairwise
.Where(\(x,y)->(x*y).divs(15)and(x+y).divs(7));
p.Count.Print;
p.Max(\(x,y)->x+y).Print;
end.
Ответ: 170&18662
Типичные ошибки
- Делимость на 15 проверяется у произведения, а не у одного элемента: тройка и пятёрка могут находиться в разных числах пары. Перемножай элементы и проверяй результат на кратность 15.
В тренажёре: подсказки по шагам, разбор твоей ошибки ИИ-репетитором (он не даёт готовый ответ), повторение ошибок по интервалам и общий прогресс. Все задания №17 по информатике