Задание №17 ЕГЭ Информатика с ответом и решением

Сначала считаем все числа из файла в массив. Для каждой пары будем проверять, кратна ли 80 сумма элементов пары и делится ли хотя бы один из элементов пары на 50. Если сумма элементов кратна 80 и хотя бы один из элементов пары делится на 50, будем увеличивать значения счётчика 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 80 = 0) and ((arr[i] mod 50 = 0) or (arr[j] mod 50 = 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]) % 80 == 0) and (l[i] % 50 == 0 or l[j] % 50 == 0):

count += 1

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

print(count, m)

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

Примечание.

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

Приведём программу Сергея Донец на PascalABC.NET:

begin

var p:=ReadAllLines('172.txt').Select(x->x.ToInteger);

var m:=p.Combinations(2)

.Where(\(a,b)->((a+b).divs(80))and(a.divs(50)or b.divs(50)))

.ToArray;

m.Length.print;

m.Max(\(a,b)->a+b).Print;

end.