Var
A:byte;
Begin
A:=random(151)+5;
if (25 < A)and(A < 100) then WriteLn('Число ',A,' содержится в интервале (25,100)')
else WriteLn('Число ',A,' не содержится в интервале (25,100)')
End.
Девушка потратила в магазине 1458.04 рубля
А) C помощью сетевого коммутатора или маршрутизатора, так как нам надо будет подключить несколько компьютеров.
Б) DSL через телефон домашний или высокоскоростной через оптоволокно ( одним словом проводной).
В) Беспроводной интернет (Wi-fi).