Св паскале абс: имеется набор данных, состоящий из 6 пар целых положительных чисел. необходимо выбрать из каждой пары ровно одно число так, чтобы сумма всех выбранных чисел не делилась на 3 и при этом была максимально возможной. если получить требуемую сумму невозможно - в качестве ответа выдать 0

Решение в прикрепленном файле. результат работы программы: пары: [11; 14]   [11; 8]   [5; 5]   [1; 13]   [2; 5]   [12; 4]   максимальная сумма, не делящаяся на 3: 52 выбранные значения из пар: 14 11 5 13 5 4 

1)дюймовочка

2)змей горыныч (3 головы)

3)снегурочка(сделана из снега)

4)буратино (необычно длинный нос)

Var       best, m, s,i: integer; begin       best : = 10000000;       for i: = 1 to 3 do begin               write('min sec = ');               readln(m, s);               if best > m * 60 + s then best : = m * 60 + s;       end;             writeln('лучший = ', best div 60, ' min ', best mod 60, ' sec'); end.