8 бит - 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>
Ответ во вложении. Каждая колонка с двумя парами двоичных тетрад (т.е. набор из восьми нулей и единичек) - это и есть ответ.