Для кодирования цвета фона страницы интернет используется атрибут bgcolor="", где в кавычках шестнадцатеричные значения интенсивности цветовых компонент в 24-битной rgb-модели следующим образом: какой цвет будет у страницы, заданной тэгом ?

серый цвет будет задан тегом    < body bgcolor="818181">

Uses       graphabc; var       i,j: integer; begin     setwindowwidth(500);     setwindowheight(500);     rectangle(30,30,470,470);     for i: =0 to 8 do     begin         line(50,50+i*50,50+8*50,50+i*50);         line(50+i*50,50,50+i*50,50+8*50);   end;   for i: =1 to 8 do       for j: =1 to 8 do             if odd(i+j) then                 floodfill(i*50+1,j*50+1,clblack);   for i: =0 to 7 do   begin       textout(70+i*50,453,chr(97+i));       textout(37,70+i*50,chr(56-i));   end; end.

Будем суммировать все положительные числа, пока не встретится 0. если полученная сумма сразу делится на 3, то нам повезло. если нет, надо что-то делать - либо прибавлять отрицательные числа, либо вычитать положительные. я не буду делать различия между ними - в любом случае надо вычитать модули чисел. - если сумма дает остаток 1, то надо вычесть или одно число с остатком 1, или два числа с остатком 2 (вычитать три или более числа нерационально: числа, делящиеся на 3, картину не портят; вычитание трёх чисел с одинаковым остатком не влияет на остаток суммы, а среди трёх чисел с остатком 1 или 2 всегда найдутся два одинаковых). - аналогично (с точностью до перестановки 1 и 2) поступаем, если сумма даёт остаток 2. если после этих всех ухищрений сумма стала отрицательной, просто выводим 0, как будто мы взяли только последний 0. код (pascalabc.net 3.2) begin   var sum : = 0;   var mins : = matrfill(2, 2, maxint div 2);   var temp: integer;   repeat     temp : = readinteger;     if temp > 0 then       sum : = sum + temp;     temp : = abs(temp);     var i : = temp mod 3 - 1;     if i > -1 then       if temp < mins[i, 0] then         (mins[i, 0], mins[i, 1]) : = (temp, mins[i, 0])       else if temp < mins[i, 1] then         mins[i, 1] : = temp;   until temp = 0;   var i : = sum mod 3 - 1;   if i > -1 then     sum : = max(sum - mins[i, 0], sum - mins.row((i + 1) mod 2).sum);   writeln(max(sum, 0)) end.