По­сле­до­ва­тель­но счи­ты­вая дан­ные из файла, будем при­бав­лять к сумме мак­си­маль­ное число в паре. Если сумма чисел де­лит­ся на 3 с остат­ком 1, то, чтобы она де­ли­лась на 3, из этой суммы не­об­хо­ди­мо вы­честь либо раз­ни­цу между чис­ла­ми в паре, де­ля­щу­ю­ся на 3 с остат­ком 1, либо два раза вы­честь из этой суммы раз­ни­цу между чис­ла­ми в паре, де­ля­щу­ю­ся на 3 с остат­ком 2. Также за­ме­тим, что если сумма чисел де­лит­ся на 3 с остат­ком 2, то, чтобы она де­ли­лась на 3, из этой суммы не­об­хо­ди­мо либо вы­честь раз­ни­цу между чис­ла­ми в паре, де­ля­щу­ю­ся на 3 с остат­ком 2, либо два раза вы­честь из этой суммы раз­ни­цу между чис­ла­ми в паре, де­ля­щу­ю­ся на 3 с остат­ком 1. Зна­чит, не­об­хо­ди­мо ис­кать два числа, де­ля­щих­ся на 3 с остат­ком 1 и яв­ля­ю­щих­ся ми­ни­маль­ны­ми раз­ни­ца­ми между чис­ла­ми в парах, и два числа, де­ля­щих­ся на 3 с остат­ком 2 и яв­ля­ю­щих­ся ми­ни­маль­ны­ми раз­ни­ца­ми между чис­ла­ми в парах.

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

var 
x, y: integer;
n: integer;
sum: integer;
dif1, dif2, dif3, dif4: integer;
f: text;
begin
    assign(f,'C:\27.txt');
    reset(f);
    readln(f, n);
    sum := 0;
    dif1 := 20001;
    dif2 := 20001;
    dif3 := 20001;
    dif4 := 20001;
    while not eof(f) do begin
        readln(f, x, y);
        if x > y then 
            sum := sum + x
        else 
            sum := sum + y;
        if (abs(x-y) mod 3 = 1) and (abs(x-y) < dif1) then begin
            dif2 := dif1;
            dif1 := abs(x-y);
        end
        else if (abs(x-y) mod 3 = 1) and (abs(x-y) < dif2) then
            dif2 := abs(x-y)
        else if (abs(x-y) mod 3 = 2) and (abs(x-y) < dif3) then begin
            dif4 := dif3;
            dif3 := abs(x-y);
        end
        else if (abs(x-y) mod 3 = 2) and (abs(x-y) < dif4) then
            dif4 := abs(x-y);
    end;
    if sum mod 3 = 0 then
        writeln(sum)
    else if (sum mod 3 = 1) then
        if ((sum - dif1) > (sum - dif3 - dif4)) then
            writeln(sum - dif1)
        else
            writeln(sum - dif3 - dif4)
    else if (sum mod 3 = 2) then
        if ((sum - dif3) > (sum - dif1 - dif2)) then
            writeln(sum - dif3)
        else
            writeln(sum - dif1 - dif2)
end.

В ре­зуль­та­те ра­бо­ты дан­но­го ал­го­рит­ма при вводе дан­ных из файла A ответ  — 127026, из файла B  — 399759471.

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

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

При­ведём ре­ше­ние Петра По­ля­ко­ва на языке Python.

f = open('27_B.txt')
n = int(f.readline())
summ = 0
raznica3 = []
for i in range(n):
    a, b = f.readline().split()
    a = int(a)
    b = int(b)
    summ = summ + max(a, b)
    r1 = max(a, b) - min(a, b)
    if r1 % 3 != 0:
     raznica3.append(r1)
raznica3 = sorted(raznica3)
if summ % 3 == 0:
    print(summ)
else:
    i = 0
    k = 0
    while summ % 3 != 0:
        i = i + 1
        if summ % 3 != 0:
            summ = summ - raznica3[i]
            if summ % 3 == 0:
                print(summ)
                break
            else:
                summ = summ + raznica3[i]
                i = i + 1
        if k < 1:
            summ = summ - raznica3[0] - raznica3[1]
            if summ % 3 == 0:
                print(summ)
                k = k + 1
                break
            else:
                summ = summ + raznica3[0] + raznica3[1]
                k = k + 1

При­ведём ре­ше­ние Юрия Лы­са­ко­ва на языке Python.

f = open('inf_22_10_20_27b.txt')
f.readline()
a1,a2 = [],[]
s = 0
for i in f:
    b = i.split()
    c = [int(b[0]),int(b[1])]
    c.sort()
    s += c[1]
    if (c[1] - c[0]) % 3 == 1: a1.append(c[1] - c[0])
    if (c[1] - c[0]) % 3 == 2: a2.append(c[1] - c[0])
a1.sort()
a2.sort()
if s % 3 == 0: print(s)
else:
    if s % 3 == 1:
        s1 = s - min(a1[0],a2[0]+a2[1])
    if s % 3 == 2:
        s1 = s - min(a2[0],a1[0]+a1[1])
    print(s1)

При­ведём ре­ше­ние Юрия Кра­силь­ни­ко­ва на языке Python.

a = [list(map(int,s.split())) for s in open('inf_22_10_20_27b.txt')][1:]
s = sum([max(x) for x in a])
difs = [[],[],[]]
for x in a:
    d = abs(x[1]-x[0])
    difs[d%3].append(d)
for i in range(1,3): difs[i].sort()
m = []
s3 = s%3
if s3 != 0:
    if difs[s3]: m.append(difs[s3][0])
    if len(difs[3-s3]) >= 2: m.append(sum(difs[3-s3][:2]))
    print(s-min(m))
else:
    print(s)

По­сле­до­ва­тель­но счи­ты­вая дан­ные из файла, будем при­бав­лять к сумме ми­ни­маль­ное число в паре. Если сумма чисел де­лит­ся на 3 с остат­ком 1, то, чтобы она де­ли­лась на 3, к этой сумме не­об­хо­ди­мо при­ба­вить либо раз­ни­цу между чис­ла­ми в паре, де­ля­щу­ю­ся на 3 с остат­ком 2, либо два раза при­ба­вить к этой сумме раз­ни­цу между чис­ла­ми в паре, де­ля­щу­ю­ся на 3 с остат­ком 1. Также за­ме­тим, что если сумма чисел де­лит­ся на 3 с остат­ком 2, то, чтобы она де­ли­лась на 3, к этой сумме не­об­хо­ди­мо либо при­ба­вить раз­ни­цу между чис­ла­ми в паре, де­ля­щу­ю­ся на 3 с остат­ком 1, либо два раза при­ба­вить к этой сумме раз­ни­цу между чис­ла­ми в паре, де­ля­щу­ю­ся на 3 с остат­ком 2. Зна­чит, не­об­хо­ди­мо ис­кать два числа, де­ля­щих­ся на 3 с остат­ком 1 и яв­ля­ю­щих­ся ми­ни­маль­ны­ми раз­ни­ца­ми между чис­ла­ми в парах, и два числа, де­ля­щих­ся на 3 с остат­ком 2 и яв­ля­ю­щих­ся ми­ни­маль­ны­ми раз­ни­ца­ми между чис­ла­ми в парах.

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

var 
x, y: integer;
n: integer;
sum: integer;
dif1, dif2, dif3, dif4: integer;
f: text;
begin
    assign(f,'C:\27b.txt');
    reset(f);
    readln(f, n);
    sum := 0;
    dif1 := 20001;
    dif2 := 20001;
    dif3 := 20001;
    dif4 := 20001;
    while not eof(f) do begin
        readln(f, x, y);
        if x > y then 
            sum := sum + y
        else 
            sum := sum + x;
        if (abs(x-y) mod 3 = 1) and (abs(x-y) < dif1) then begin
            dif2 := dif1;
            dif1 := abs(x-y);
        end
        else if (abs(x-y) mod 3 = 1) and (abs(x-y) < dif2) then
            dif2 := abs(x-y)
        else if (abs(x-y) mod 3 = 2) and (abs(x-y) < dif3) then begin
            dif4 := dif3;
            dif3 := abs(x-y);
        end
        else if (abs(x-y) mod 3 = 2) and (abs(x-y) < dif4) then
            dif4 := abs(x-y);
    end;
    if sum mod 3 = 0 then
        writeln(sum)
    else if (sum mod 3 = 1) then
        if ((sum + dif3) < (sum + dif1 + dif2)) then
            writeln(sum + dif3)
        else
            writeln(sum + dif1 + dif2)
    else if (sum mod 3 = 2) then
        if ((sum + dif1) < (sum + dif3 + dif4)) then
            writeln(sum + dif1)
        else
            writeln(sum + dif3 + dif4)
end.

В ре­зуль­та­те ра­бо­ты дан­но­го ал­го­рит­ма при вводе дан­ных из файла A ответ  — 67407, из файла B  — 200168361.

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

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

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