Задания
Версия для печати и копирования в MS Word
Тип 17 № 37348

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

17.txt

Ответ:

Спрятать решение

Решение.

Сначала считаем все числа из файла в массив. Для каждой пары будем проверять, кратно ли 34 произведение элементов пары. Если произведение не кратно 34, будем увеличивать значения счётчика 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 34 <> 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] % 34 != 0:

count += 1

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

print(count, m)

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

 

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