Как будет выглядеть локальная сеть из 10 компьютеров, сервера, концентратора, маршрутизатора? Тип кабеля: экранированная витая пара + WiFi, топология звезда

Смотри картинки

Объяснение:

3.

Пусть Чертёжник в точке с начальными координатами (x, y).

Чтобы узнать где после всех команд сместиться на вектор оказался Чертёжник надо сложить все указанные команды, отдельно по каждой оси.

x = 3 + 1 + (-1) + 0 = 3 + 1 - 1 + 0 = 3

y = 3 + 0 + (-1) + 1 = 3 + 0 - 1 + 1 = 3

Чертежник оказался в точке с координатами (x +3, y +3).

Чтобы вернуться в исходную точку надо заменить узнанные векторы противоположными:

сместиться на вектор (-3, -3)

4.

После выполнения команды сместиться на вектор (a, b), Чертёжник оказывается в точке (x + a, y + b), относительно начальных координат (x, y).

начальные координаты (1, 1)

Т.к. цикл должен повториться 3 раза, то выполним указанные в нём команды 3 раза.

начальные координаты (1, 1)

сместиться на вектор (2, 0) - Чертёжник оказывается в точке (3, 1)

начальные координаты (3, 1)

сместиться на вектор (0, 1) - Чертёжник оказывается в точке (3, 2)

начальные координаты (3, 2)

сместиться на вектор (2, 0) - Чертёжник оказывается в точке (5, 2)

начальные координаты (5, 2)

сместиться на вектор (0, 1) - Чертёжник оказывается в точке (5, 3)

начальные координаты (5, 3)

сместиться на вектор (2, 0) - Чертёжник оказывается в точке (7, 3)

начальные координаты (7, 3)

сместиться на вектор (0, 1) - Чертёжник оказывается в точке (7, 4)

Смещения по оси x вправо и по оси y вверх - положительные.

Смещения по оси x влево и по оси y вниз - отрицательные.

Много лишнего(наверно), только с олимпиады!Как есть.
uses crt;
var b,n,i,k,c,o,x1:integer;
    f,s,ch:string;
    r,g: text;
    A:array [0..9] of integer;
begin
assign (r,'C:\Bin.txt');
reset (r);
readln (r,f);
close (r);
for i:=1 to length(f) do
begin
s:=copy(f,1,1);
if (s<>'0') or (s<>'1') or (s<>'2') or (s<>'3') or (s<>'4') or (s<>'5') or (s<>'6') or (s<>'7') or (s<>'8') or (s<>'9')then
delete(f,1,1);
if (s='0') or (s='1') or (s='2') or (s='3') or (s='4') or (s='5') or (s='6') or (s='7') or (s='8') or (s='9')then
begin
x1:=pos(s,ch);
if x1<>0 then
begin
delete(ch,x1,1);
ch:=ch+s;
end
else
ch:=ch+s;
end;
end;
val(ch,n,o);
  N := Abs(N);
  for i := 0 to 9 do
  A[ i ] := 0;
  while N > 0 do
  begin Inc(A[ N mod 10]);
  N := N div 10;
  end;
assign (g,'C:\Bout.txt');
rewrite (g);
  for i := 0 to 9 do
  while A[ i ] > 0 do
  begin Write(g,i);
  Dec(A[ i ]);
  end;
  close(g);
end.