Уровень - Применение 1. Необходимо объединить компьютеры в многоквартирном доме с несколькими подъездами. Какую топологию сети вы- берете? Какой тип кабеля? С какими средствами передачи? Обоснуйте свой выбор. 2. Какой тип сети вы бы выбрали для объединения трех смарт- фонов среди друзей? Обоснуйте свой выбор. 3. Скорость передачи данных через ADSL-соединение равна 256 000 бит/с. Передача файла через данное соединение заня- ла 3 мин. Определите размер файла в килобайтах. (ответ: 5625 Кбайт.) 4. Скорость передачи данных через ADSL-соединение равна 128 000 бит/с. Через данное соединение передают файл paзмe- ром 625 Кбайт. Определите время передачи файла в секундах. (ответ: 40 с.) 5. Скорость передачи данных через ADSL-соединение равна 1 024 000 бит/с. Передача файла через данное соединение за- няла 5 с. Определите размер файла в килобайтах. (ответ: 625 Кбайт.)​

Задание 1

1⁵ 0⁴ 1³ 0² 1¹ 0⁰ = 1 · 2⁵ + 0 · 2⁴ + 1 · 2³ + 0 · 2² + 1 · 2¹ + 0 · 2⁰ = 32 + 0 + 8 + 0 + 2 + 0 = 42₁₀

Задание 2

35 = 32 + 2 + 1 = 2⁵ + 2¹ + 2⁰ = 100 000 + 10 + 1 (в столбик - двоичное сложение) = 100011₂

Задание 3

Стоит помнить, что:

1 + 1 = 10

1 + 1 + 1 = 11

1 + 1 + 1 + 1 = 100

Это происходит, потому что в 2-й системе счисления всего два числа - 0 и 1. В 10-й системе счисления это выглядело бы примерно так:

...

1 + 9 = 10

...

1 + 19 = 20

...

1 + 99 = 100

То есть переполнение числа приводит к тому, что цифра слева  увеличивается на единицу. В случае, если есть девятка - то цифра слева увеличивается на 1.

999 + 1 = 1 0 0 0

program t;

var n, i, a, b, c, d, k, m: integer; x1, x2, x3, y1, y2, y3: array[1..10000] of integer; f1, f2: text;

function icl(x, y: integer): boolean;

var i: integer;

begin

icl:=false;

for i:=1 to n do

begin

 if (x>=x1[i]) and (y>=y1[i]) and (x<=x2[i]) and (y<=y2[i]) then

 begin

  icl:=true;

  break

 end

end

end;

procedure re(st, fn: integer);

var nst, nfn, i, j, jj, xx, yy: integer; eq, ff: boolean;

begin

m:=m+1;

nst:=k+1;

ff:=false;

for i:=st to fn do

begin

 for j:=0 to 11 do

 begin

  if j mod 3=0 then continue;

  xx:=x3[i]+trunc(cos(j*pi/6)*3);

  yy:=y3[i]+trunc(sin(j*pi/6)*3);

  if not icl(xx, yy) then continue;

  eq:=false;

  for jj:=1 to k do if (xx=x3[jj]) and (yy=y3[jj]) then

  begin

   eq:=true;

   break

  end;

  if eq then continue;

  if (xx=c) and (yy=d) then

  begin

   ff:=true;

   break

  end;

  k:=k+1;

  x3[k]:=xx;

  y3[k]:=yy;

 end;

 if ff then break;

end;

if ff then exit;

nfn:=k;

if nst>nfn then

begin

 m:=-1;

 exit

end;

re(nst, nfn)

end;

begin

assign(f1, 'horse.in');

reset(f1);

assign(f2, 'horse.out');

rewrite(f2);

readln(f1, n);

for i:=1 to n do readln(f1, x1[i], y1[i], x2[i], y2[i]);

readln(f1, a, b);

readln(f1, c, d);

k:=1;

x3[1]:=a;

y3[1]:=b;

m:=0;

re(1, 1);

writeln(f2, m);

close(f1);

close(f2)

end.