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

1)program primer1;

var х,у,z:integer;

{ описание переменных }

begin { начало программы }

х := 3; { установка значения х }

у := 5; { установка значения у }

z := х + у; { вычисление суммы }

write(z); {вывод результата вычисления на экран }

end. { конец программы }

2) program vetvlenija;

uses crt;

var A:real;

begin

clrscr;

write ('Введите число A: ');

readln (A);

if A>=0 then

writeln ('Вы ввели положительное число');

readln

end.

3) program cikle;

var

i, n: integer;

begin

write ('Количество знаков: ');

readln (n);

 for i := 1 to n do

write ('(*) ');

 

readln

end.

Объяснение:

1) линейный, без ничего

2) ветвление - if then

3) цикл - for

Взвесить любые две монеты друг с другом:
1) Если весы в равновесии то взвесить одну из этих монет с любой из оставшихся
а) Если монета которую взвешивают второй раз весит больше, то фальшивая та которая легче и та, которую не взвешивали
b) Если монета которую взвешивают второй раз весит меньше, то она и та с которой взвешивали в первый раз фальшивые
2) Если одна из монет весит больше другой, то взвесить ее с любой из оставшихся:
a)Если весы в равновесии, то фальшивая та с которой взвешивали в первый раз и с которой не взвешивали
b) Если новая монета весит легче, то фальшивая она и та с которой не взвешивали