ЕГЭ–2026, информатика: задания, ответы, решения

Каталог заданий.
Задания для подготовки

Пройти тестирование по этим заданиям
Вернуться к каталогу заданий
Версия для печати и копирования в MS Word

Тип 17 № 37336 Добавить в вариант

В файле содержится последовательность целых чисел. Элементы последовательности могут принимать целые значения от −10 000 до 10 000 включительно. Определите и запишите в ответе сначала количество пар элементов последовательности, в которых хотя бы одно число делится на 3, затем максимальную из сумм элементов таких пар. В данной задаче под парой подразумевается два идущих подряд элемента последовательности. Например, для последовательности из пяти элементов: 6; 2; 9; –3; 6  — ответ 4 11.

Задание 17

Ответ:

Решение.

Будем последовательно считывать числа из файла. Для каждой пары (двух подряд идущих элементов) будем проверять, делится ли хотя бы одно число из пары на 3. При успешном выполнении условия будем увеличивать значения счётчика count и проверять, больше ли сумма элементов пары текущей максимальной суммы. Если сумма элементов пары больше текущей максимальной суммы, будем обновлять значение переменной maxsum.

Приведём решение задачи на языке Pascal.

var

x, y, count: longint;

maxsum: longint;

f: text;

begin

assign(f,'C:\17.txt');

reset(f);

readln(f, x);

maxsum := -20001;

count := 0;

while not eof(f) do begin

readln(f, y);

if (x mod 3 = 0) or (y mod 3 = 0) then begin

count := count + 1;

if x + y > maxsum then maxsum := x + y;

end;

x := y;

end;

writeln(count, ' ', maxsum);

end.

Приведём решение Николая Чуркина (Тимашевск) на языке Python.

count = 0

m = -20001

f = open('17.txt')

l = [int(i) for i in f]

for i in range(len(l) - 1):

if (l[i] % 3 == 0) or (l[i + 1] % 3 == 0):

count += 1

m = max(m, l[i]+ l[i + 1])

print(count, m)

В результате работы данного алгоритма при вводе данных из файла ответ  — 2802 1990.

Примечание.

Путь к файлу необходимо указать согласно расположению файла на Вашем компьютере.

Источник: Демонстрационная версия ЕГЭ−2022 по информатике

Решение · Помощь

Тип 17 № 37337 Добавить в вариант

В файле содержится последовательность из 10 000 натуральных чисел. Каждое число не превышает 10 000. Определите и запишите в ответе сначала количество пар элементов последовательности, у которых различные остатки от деления на d  =  160 и хотя бы одно из чисел делится на p  =  7, затем максимальную из сумм элементов таких пар. В данной задаче под парой подразумевается два различных элемента последовательности. Порядок элементов в паре не важен.

Пример входных данных:

168

320

328

Пример выходных данных для приведённого выше примера входных данных:

4 488

Пояснение. Из 4 чисел можно составить 6 пар. В данном случае условиям удовлетворяют пары: 168 и 320, 168 и 7, 320 и 7, 328 и 7. Максимальную сумму дает пара 168 и 320  — 488.

Задание 17

Ответ:

Решение.

Сначала считаем все числа из файла в массив. Для каждой пары будем проверять, делится ли хотя бы одно число из пары на 7, а также то, имеют ли элементы пары различные остатки от деления на 160. При успешном выполнении условия будем увеличивать значения счётчика count и проверять, больше ли сумма элементов пары текущей максимальной суммы. Если сумма элементов пары больше текущей максимальной суммы, будем обновлять значение переменной maxsum.

Приведём решение задачи на языке Pascal.

var

i, j: integer;

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] mod 7 = 0) or (arr[j] mod 7 = 0) then

if (arr[i] mod 160 <> arr[j] mod 160) then begin

count := count + 1;

if arr[i] + arr[j] > maxsum then maxsum := arr[i] + arr[j];

end;

writeln(count, ' ', maxsum);

end.

В результате работы данного алгоритма при вводе данных из файла ответ  — 12749665 19989.

Приведём решение задачи на языке Python.

f = open('17.txt')

a = [int(i) for i in f]

s = 0

mx = 0

for i in range(len(a) - 1):

for j in range(i + 1, len(a)):

if (a[i] % 160 != a[j] % 160) and ((a[i] % 7 == 0) or (a[j] % 7 == 0)):

s += 1

mx = max(mx, a[i] + a[j])

print(s, mx)

В результате работы данного алгоритма при вводе данных из файла ответ  — 12749665 19989.

Примечание.

Путь к файлу необходимо указать согласно расположению файла на Вашем компьютере.

Приведём решение Артёма Гридина на языке Python.

from itertools import combinations

f = open('17.txt')

numbers = map(int, f.readlines())

cnt = 0

maxsum = 0

for para in combinations(numbers, 2):

if (para[0]%7 == 0 or para[1]%7 == 0) and para[0]%160 != para[1]%160:

cnt+=1

maxsum = max(maxsum, para[0]+para[1])

print(cnt, maxsum)

В результате работы данного алгоритма при вводе данных из файла ответ  — 12749665 19989.

Приведём решение Сергея Донец на языке PascalABC.NET.

begin
var (d,p) := (160,7);
var t := ReadAllText('17.txt').ToIntegers
.Combinations(2)
.Where(\(a,b)->((a mod d)<>(b mod d)))
.Where(\(a,b)->(a mod p=0)or(b mod p=0));
Print(t.Count, t.Select(\(a,b)->a+b).Max);
end.

Решение · Помощь

Тип 17 № 37340 Добавить в вариант

В файле содержится последовательность из 10 000 целых положительных чисел. Каждое число не превышает 10 000. Определите и запишите в ответе сначала количество пар элементов последовательности, разность которых четна и хотя бы одно из чисел делится на 31, затем максимальную из сумм элементов таких пар. В данной задаче под парой подразумевается два различных элемента последовательности. Порядок элементов в паре не важен.

Задание 17

Ответ:

Решение.

Сначала считаем все числа из файла в массив. Для каждой пары будем проверять, делится ли хотя бы одно число из пары на 31, а также то, чётна ли разность элементов пары. При успешном выполнении условий будем увеличивать значения счётчика count и проверять, больше ли сумма элементов пары текущей максимальной суммы. Если сумма элементов пары больше текущей максимальной суммы, будем обновлять значение переменной maxsum.

Приведём решение задачи на языке Pascal.

var

i, j: integer;

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] mod 31 = 0) or (arr[j] mod 31 = 0) then

if ((arr[i] - arr[j]) mod 2 = 0) then begin

count := count + 1;

if arr[i] + arr[j] > maxsum then maxsum := arr[i] + arr[j];

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]) % 2 == 0 and (l[i] % 31 == 0 or l[j] % 31 == 0):

count += 1

m = max(m, l[i] + l[j])

print(count, m)

В результате работы данного алгоритма при вводе данных из файла ответ  — 1569269 19982.

Примечание.

Путь к файлу необходимо указать согласно расположению файла на Вашем компьютере.

Приведём решение Ивана Шапошникова на языке Python.

file = open('17.txt').readlines()

s = [int(n) for n in file]

s31 = [n for n in s if n % 31 == 0]

s0 = [n for n in s if n % 31 != 0]

count = 0

maxNum = 0

count = m = 0

for i in range(len(s31)):

for y in range(len(s0)):

if abs(s31[i] - s0[y]) % 2 == 0:

count += 1

maxNum = max(maxNum, s31[i] + s0[y])

for i in range(len(s31) - 1):

for y in range(i + 1, len(s31)):

if abs(s31[i] - s31[y]) % 2 == 0:

count += 1

maxNum = max(maxNum, s31[i] + s0[y])

print(count, maxNum)

Приведём решение Ильи Андрианова на языке Python.

M = [int(x) for x in open('17.txt')]

R = []

for i in range(0, len(M)):

for j in range(i+1, len(M)):

x, y = M[i], M[j]

if (x - y) % 2 == 0:

if x % 31 == 0 or y % 31 == 0:

R.append(x + y)

print(len(R), max(R))

Аналоги к заданию № 37340: 37341 Все

Решение · Помощь

Тип 17 № 37344 Добавить в вариант

В файле содержится последовательность из 10 000 целых положительных чисел. Каждое число не превышает 10 000. Определите и запишите в ответе сначала количество пар элементов последовательности, для которых произведение элементов делится без остатка на 10, затем максимальную из сумм элементов таких пар. В данной задаче под парой подразумевается два различных элемента последовательности. Порядок элементов в паре не важен.

Задание 17

Ответ:

Решение.

Сначала считаем все числа из файла в массив. Для каждой пары будем проверять, делится ли произведение элементов пары на 10 без остатка. При успешном выполнении условия будем увеличивать значения счётчика count и проверять, больше ли сумма элементов пары текущей максимальной суммы. Если сумма элементов пары больше текущей максимальной суммы, будем обновлять значение переменной maxsum.

Приведём решение задачи на языке Pascal.

var

i, j: integer;

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 10 = 0) then begin

count := count + 1;

if arr[i] + arr[j] > maxsum then maxsum := arr[i] + arr[j];

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] % 10 == 0:

count += 1

m = max(m, l[i] + l[j])

print(count, m)

В результате работы данного алгоритма при вводе данных из файла ответ  — 13510315 19999.

Примечание 1.

Путь к файлу необходимо указать согласно расположению файла на Вашем компьютере.

Примечание 2.

Под различными элементами последовательности подразумеваются элементы с разными номерами, значения элементов могут быть одинаковыми.

Аналоги к заданию № 37344: 37345 Все

Решение · Помощь

Тип 17 № 37347 Добавить в вариант

В файле содержится последовательность из 10 000 целых положительных чисел. Каждое число не превышает 10 000. Определите и запишите в ответе сначала количество пар элементов последовательности, для которых произведение элементов не кратно 14, затем максимальную из сумм элементов таких пар. В данной задаче под парой подразумевается два различных элемента последовательности. Порядок элементов в паре не важен.

Задание 17

Ответ:

Решение.

Сначала считаем все числа из файла в массив. Для каждой пары будем проверять, кратно ли 14 произведение элементов пары. Если произведение не кратно 14, будем увеличивать значения счётчика count и проверять, больше ли сумма элементов пары текущей максимальной суммы. Если сумма элементов пары больше текущей максимальной суммы, будем обновлять значение переменной maxsum.

Приведём решение задачи на языке Pascal.

var

i, j: integer;

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;

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.

Примечание.

Путь к файлу необходимо указать согласно расположению файла на Вашем компьютере.

Аналоги к заданию № 37347: 37348 Все

Решение · Помощь

Пройти тестирование по этим заданиям