Сначала запишем все числа из промежутка и переведем каждое из них в восьмеричную систему исчисления (чтобы перевести из десятичной в восьмеричную, сначала делим число на восемь, потом получившееся частное и остаток записываются в том же порядке и получаем искомое число), затем убираем те числа где есть 2 или 6. Оставшиеся числа складываем и в ответе получаем 784₈ переводим снова в десятичную (744₈ = 7*8^2+4*8+4*1 = 484₁₀), и теперь уже переводим в двенадцатеричную. Делим 484 на 12, получаем (4)*12+(4) - то что в скобках и будем ответом на задачу.
Ответ: 44₁₂
//Pascal ABC.NET 3.1 сборка 1219
begin
writeln('Array:');
var ar:=ArrRandomInteger(7,-10,10);
ar.Println;
writeln('Result:');
foreach var x in ar do
if not(odd(x)) then write(x:4);
end.
Пример работы программы:
Array:
-1 9 3 10 -4 -1 8
Result:
10 -4 8
<span>а:= а - в
20 символов ( . ) ( . )
</span>
Рукописи не горят
Никакая причина не извиняет невежливость.