Тут такой принцип. Есть таблица, в которой каждой шестнадцатеричной цифре соответствует двоичный код:
<span>16 система 2 система </span>
<span>0= 0000 </span>
<span>1= 0001 </span>
<span>2= 0010 </span>
<span>3 =0011 </span>
<span>4 =0100 </span>
<span>5= 0101 </span>
<span>6= 0110 </span>
<span>7 =0111 </span>
<span>8 =1000 </span>
<span>9= 1001 </span>
<span>А =1010 </span>
<span>B =1011 </span>
<span>C =1100 </span>
<span>D =1101 </span>
<span>E =1110 </span>
<span>F= 1111 </span>
<span>С помощью этой таблицы записываем наше шестнадцатеричное число, переводя каждую цифру в двоичный код: </span>
<span>1011 0010 1011 0001 0110 </span>
<span>Чтобы перевести число в четверичную систему, этот код разбиваем на группы по две цифры, и каждую группу переводим в четверичную цифру, так как в четверичной системе каждая цифра кодируется двумя двоичными цифрами: </span>
<span>Двоичная система Четверичная система </span>
<span>00= 0 </span>
<span>01=1 </span>
<span>10 =2 </span>
<span>11= 3 </span>
<span>Получаем </span>
<span>10 11 00 10 10 11 00 01 01 10 = 2302230112</span>
Program primer1;
var k:integer;
begin
writeln('введите K');
readln(k);
If k>0 then k:= k-6 else k:= k+10;
write(k);
End.
program next;
var a,b,c,q,w,e:real;
begin
a:=random(-30,30);
b:=random(-30,30);
c:=random(-30,30);
writeln(a);
writeln(b);
writeln(c);
q:=a*(-1);
w:=b*(-1);
e:=c*(-1);
if (q>w)and(q>e) then
begin
writeln('1 число больше остальных по модулю');
end;
if (w>q)and(w>e) then
begin
writeln('2 число больше остальных по модулю');
end;
if (e>w)and(e>q) then
begin
writeln('3 число больше остальных по модулю');
end;
end.
Объяснение: