<span>Рассмотрим исходное число 171673₈
Самая левая цифра 1 в двоичной записи имеет два нуля, но поскольку цифра самая левая, то они оба незначимые и не учитываются. В остальных цифрах все нули значимые.
А теперь вместо каждой цифры запишем количество нулей в ней и сложим написанные числа:
</span><span>0+2+1+0+1=4
Ответ: 4
</span>
Program prim_a;
var
m, n, k: integer;
begin
writeln('введите значение переменных m, n, k: ');
read(m, n, k);
writeln(m + n + k)
end.
Я как понял 1 кусочек лишний
Var
a: array[1..10, 1..10] of integer;
i, j, k: integer;
begin
k := 1;
for i := 1 to 10 do
begin
for j := 1 to 10 do
begin
if(j >= i) then begin
a[i, j] := k;
k += 1;
end
else a[i, j] := 0;
write(a[i, j]:3);
end;
k := 1;
writeln();
end;
<span>end.</span>
Ну 6 в восьмеричной и десятеричной системах исчисления будет одинаково
6(10)->6(8)->110(2)
110 получаем путем деления 6 на 2 со списыванием остатков.