Дописываем немного код для перебора и проверяем выводvar x, a, b, t: longint;begin for t := -1000 to 1000 do begin x := t; a := 0; b := 1; while x > 0 do begin if x mod 2 > 0 then a := a + x mod 8 else b := b * (x mod 8); x := x div 8; end; if (a = 2) and (b = 12) then writeln(t); end;end.Вывод 598626654689906913т.е. минимальное число 598Аналитическое решение:имеем дело с 8ричным числом. Перебираем его цифры.Если цифра нечетная то сумируем ее к А, а четные перемножаем с В В = 12 это произведение 12 = 2*6 = 3*4 = 1*12, но нужно чтоб все числа были четные потому 2*6А = 2. 2 = 2 = 1+1 , поскольку числа нечетные, то 2 = 1+1Значит у нас есть 4 8ричные цифры 2,6,1,1Минимальное число которое может из них получиться 1126(8) = 598(10)