Доступ к файлу math.doc, находящемуся на сервере obr.ru, осуществляется по

протоколу https. Фрагменты адреса файла закодированы цифрами от 1 до 7.

Запишите последовательность этих цифр, кодирующую адрес указанного

файла в сети Интернет.
​

0011₂+1011₂ = 3₁₀+11₁₀ = 14₁₀ (или 1110₂)

10110₂-1011₂ = 22₁₀-11₁₀ - 11₁₀ (или 1011₂)

Объяснение:

Перевод из двоичной в десятичную систему исчисления производится справа налево, таким образом:

0011₂= 1*2⁰+1*2¹+0*2²+0*2³ = 1*1+1*2+0*4+0*8 = 1+2+0+0 = 3₁₀

1011₂=  1*2⁰+1*2¹+0*2²+1*2³ = 1*1+1*2+0*4+1*8 = 1+2+0+8 = 11₁₀

10110₂=  0*2⁰+1*2¹+1*2²+0*2³+1*2⁴ = 0*1+1*2+1*4+0*8+1*16 = 0+2+4+0+16 = 22₁₀

1011₂=  1*2⁰+1*2¹+0*2²+1*2³ = 1*1+1*2+0*4+1*8 = 1+2+0+8 = 11₁₀

Объяснение для "или":

Перевод из десятичной в двоичную производится делением числа на 2 до тех пор, пока не останется ответ 1, и записи остатков и ответа справа налево, начиная с ответа, таким образом:

14/2=7(ост. 0); 7/2=3(ост. 1); 3/2=1(ост. 1)

Запишем как: 1110₂

11/2=5(ост. 1); 5/2=2(ост. 1); 2/2=1(ост. 0)

Запишем как: 1011₂

Program n1;
const n=20;
var a: array[1..n] of integer;
i,kn,ko,kp: integer;
function max(a,b,c: integer): string;
begin
max:=' ';
if (a>b) and (a>c) then max:='0 больше'
else if (b>c) and (b>a) then max:='отрицательных больше'
else if (c>a) and (c>b) then max:='положительных больше'
else if (a=c) and (c=b) then max:='количество всех элементов одинаковое'
else if a=b then max:='0 и отрицательных поровну'
else if b=c then max:='положительных и отрицательных поровну'
else if a=c then max:='0 и положительных поровну'
else max:='ошибка';
end;
begin
randomize;
write('исходный массив: ');
kn:=0;
kp:=0;
ko:=0;
for i:=1 to n do
begin
a[i]:=random(3)-1;
write(a[i],' ');
if a[i]>0 then kp:=kp+1
else if a[i]<0 then ko:=ko+1
else kn:=kn+1;
end;
writeln;
write(max(kn,ko,kp));
end.