По­сле­до­ва­тель­но счи­ты­вая дан­ные из файла, будем при­бав­лять к сумме ми­ни­маль­ное число в паре. Если сумма чисел де­лит­ся на 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.