Крупнейшая в мире локальная сеть создана в Европейском Центре ядерных исследований. Она объединяет несколько тысяч компьютеров и работает с Большим адронным коллайдером. Внутри центра проложено 35000 километров оптического кабеля.
<span>Информация, которую дает коллайдер и другие ускорители, проходит обработку в детекторе и через локальный вычислительный центр поступает в главный центр хранения и обработки данных. Ежедневно компьютерам нужно принять, сохранить, обработать и распределить около одного петабайта данных. Количество ежегодно производимой информации, записанной на CD-диски, было бы равно двадцатикилометровой стопке.</span>
===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
var m := Range(1, n).Average;
if m > 17 then
Print(m - 5)
else
Range(1, n).Aggregate(BigInteger.One, (p, q) -> p * q).Print
end.
Set /p a="Name: "
dir %a%
@pause
Насколько я помню, так:)