Поставьте вместо знака во нужные символы:

12--2

3--1

АБ--В

КОМ--Н

1345Р-4С

2РОГ--?

1С7₁₆ = 111000111₂ = 707₈ = 455₁₀

Объяснение:

1С7₁₆ делим на цифры и переводим в 2 СС

1₁₆ = 1₁₀ = 1₂ (не добавляем впереди 0, чтобы число занимало 4 позиции, т.к. число будет первым)

С₁₆ = 12₁₀ = 1100₂

12 / 2 = 6 + остаток 0

6 / 2 = 3 + остаток 0

3 / 2 = 1 + остаток 1

1 / 2 = 0 + остаток 1

записываем снизу вверх

7₁₆ = 7₁₀ = 111₂ = 0111₂ (добавляем впереди 0, чтобы число занимало 4 позиции)

7 / 2 = 3 + остаток 1

3 / 2 = 1 + остаток 1

1 / 2 = 0 + остаток 1

записываем снизу вверх

1С7₁₆ = 111000111₂ (собираем всё вместе)

111000111₂ - делим на тройки начиная с конца и переводим в 10 СС

111₂ = 1 * 2² + 1 * 2¹ + 1 * 2⁰ = 4 + 2 + 1 = 7₁₀

000₂ = 0₁₀

111₂ = 1 * 2² + 1 * 2¹ + 1 * 2⁰ = 4 + 2 + 1 = 7₁₀

записываем снизу вверх и получаем 8 СС

1С7₁₆ = 707₈

707₈ = 7 * 8² + 0 * 8¹ + 7 * 8⁰ = 7 * 64 + 7 * 1 = 448 + 7 = 455₁₀

1С7₁₆ = 455₁₀

1С7₁₆ = 1 * 16² + С * 16¹ + 7 * 16⁰ = 1 * 256 + 12 * 16 + 7 * 1 = 256 + 192 + 7 = 455₁₀

Var 
a: array[1..n] of integer; 
k, i, m: byte; 
min: integer;

begin 
Write('Razmer massiva: '); 
Readln(k); 
if (k < 0) or (k > 100) then     
begin       
Writeln('Razmer dolzhen byt bolshe 0 i menshe 100');       
Readln;       
Exit;     
end; 
Randomize; 
Writeln('Ishodn. massiv: '); 
for i:=1 to k do     
begin       
a[i]:=Random(101)-50;       
write(a[i]:4);     
end; 
min:=a[1]; 
for i:=2 to k do   
if a[i] < min then       
begin         
min:=a[i];         
m:=i;       
end; 
a[m] := a[1]; 
a[1] := min; 
Writeln; 
Writeln('Min element = ', min:4, ' v posicii ', m:3); 
Writeln('Rezult. massiv: '); 
for i:=1 to k do     
write(a[i]:4); 
readln;
end.