1)
100101₂ = 37₁₀
56₈ = 46₁₀
A₁₆ = 10₁₀
2) 1E₁₆ 56₈ 0110111₂
Объяснение:
1)
100101₂ = 1 * 2⁵ + 0 * 2⁴ + 0 * 2³ + 1 * 2² + 0 * 2¹ + 1 * 2⁰ = 1 * 32 + 0 * 16 + 0 * 8 + 1 * 4 + 0 * 2 + 1 * 1 = 32 + 4 + 1 = 37₁₀
56₈ = 5 * 8¹ + 6 * 8⁰ = 5 * 8 + 6 * 1 = 40 + 6 = 46₁₀
A₁₆ = A * 16⁰ = 10 * 1 = 10₁₀
2)
0110111₂ = 110111₂ (отбросили незначащий 0) = 1 * 2⁵ + 1 * 2⁴ + 0 * 2³ + 1 * 2² + 1 * 2¹ + 1 * 2⁰ = 1 * 32 + 1 * 16 + 0 * 8 + 1 * 4 + 1 * 2 + 1 * 1 = 32 + 16 + 4 + 2 + 1 = 55₁₀
56₈ = 5 * 8¹ + 6 * 8⁰ = 5 * 8 + 6 * 1 = 40 + 6 = 46₁₀
1E₁₆ = 1 * 16¹ + E * 16⁰ = 1 * 16 + 14 * 1 = 16 + 14 = 30₁₀
30₁₀ 46₁₀ 55₁₀
1E₁₆ 56₈ 0110111₂
В качестве цифр шестнадцатеричной системы счисления обычно используются цифры от 0 до 9 и латинские буквы от A до F.
A₁₆ = 10₁₀ B₁₆ = 11₁₀ C₁₆ = 12₁₀ D₁₆ = 13₁₀ E₁₆ = 14₁₀ F₁₆ = 15₁₀
ответ: Программа рабочая, проверена.
Program zadacha;
var
a: array [1..50] of integer; // размерность массива = 50
i,k: integer;
begin
begin
for i:=1 to 50 do
a[i] := Random(100); // числа от 0 до 100 будут присутствовать в массиве
writeln('Заполненный массив: ');
for i:=1 to 50 do
write(a[i],' '); end; // выводим массив на экран до проверки
writeln; //новая строка
writeln('Введите значение числа K: '); readln(k);
writeln('Элементы массива, кратные K:');
for i:=1 to 50 do
if (a[i] mod k = 0) then write(a[i],' ');
end.
Объяснение:
i - порядковый номер элемента
a - сам массив
k - вводимое число
В остальном оставила комментарии.
Размерность массива и его диапазон указан в программе числами, т.к. в задаче не было вопроса о вводе элементов или вводе размерности.
begin
for i:=8 to 32 do begin
if (i mod 2)=0 then writeln(i);
end;
end.