Частично. В обязанности сис. админа входит проверка антивирусного ПО и его своевременное обновление. Но поскольку комьютеры относились к рабочим местам за которыми закреплены работники, они тоже сильно виноваты. Ведь администратор не может быть "везде и всегда", работники должны были сообщить о проблеме и следовать инструкциям, которые отдавал (или мог отдавать) администратор.
Эх, что-то мудрено получилось
переменных многовато
<em>// PascalABC.NET 3.2, сборка 1370 от 24.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandomReal(ReadInteger('n='),-99,99); a.Println;
var x,y:real;
Write('Введите границы интервала для произведения: ');
Read(x,y);
var p:=a.Where(q->(q>=x) and (q<=y)).Aggregate(1.0,(x,y)->x*y);
Writeln('p=',p)
end.
<u>Пример</u>
n= 10
11.0202379617934 -21.4386138983251 17.4840150235612 -92.4701039881772 8.05400941383746 -23.9996788990682 85.7269244402307 -27.4690603960627 -72.6577002609417 61.1870779274903
Введите границы интервала для произведения: -20 30.8
p=1551.83047486587
В вопросе скорей всего ошибка.
Наверно имеется ввиду 1 пиксель, а не бит.
Глубина цвета = 32 бита, значит 1 пиксель кодируется 32 битами
32 бита=4 байта