при их открытии
Объяснение:
Компьютерный вирус — это специальная программа самопроизвольно присоединяться к другим программам и при запуске последних выполнять различные нежелательные действия: порчу файлов и каталогов; искажение результатов вычислений; засорение или стирание памяти; создание помех в работе компьютера. Наличие вирусов проявляется в разных ситуациях.
Некоторые программы перестают работать или начинают работать некорректно.
На экран выводятся посторонние сообщения, сигналы и другие эффекты.
Работа компьютера существенно замедляется.
Структура некоторых файлов оказывается испорченной.
Имеются несколько признаков классификации существующих вирусов:
по среде обитания;
по области поражения;
по особенности алгоритма;
по заражения;
по деструктивным возможностям.
По среде обитания различают файловые, загрузочные, макро- и сетевые вирусы.
Файловые вирусы — наиболее распространенный тип вирусов. Эти вирусы внедряются в выполняемые файлы, создают файлы-спутники (companion-вирусы) или используют особенности организации файловой системы (link-вирусы).
Загрузочные вирусы записывают себя в загрузочный сектор диска или в сектор системного загрузчика жесткого диска. Начинают работу при загрузке компьютера и обычно становятся резидентными.
Макровирусы заражают файлы широко используемых пакетов обработки данных. Эти вирусы представляют собой программы, написанные на встроенных в эти пакеты языках программирования. Наибольшее распространение получили макровирусы для приложений Microsoft Office.
Сетевые вирусы используют для своего распространения протоколы или команды компьютерных сетей и электронной почты. Основным принципом работы сетевого вируса является возможность самостоятельно передать свой код на удаленный сервер или рабочую станцию. Полноценные компьютерные вирусы при этом обладают возможностью запустить на удаленном компьютере свой код на выполнение.
На практике существуют разнообразные сочетания вирусов — например, файлово-загрузочные вирусы, заражающие как файлы, так и загрузочные секторы дисков, или сетевые макровирусы, которые заражают редактируемые документы и рассылают свои копии по электронной почте.
var a,b,c:Integer;
begin
while (true) do
begin
Read(a);
if a = 0 then
break
else
if a mod 2 = 0 then
b+=1
else
if a mod 10 = 3 then
c+=1;
end;
if b<c then
WriteLn('Чисел оканчивающихся на 3 больше на '+(c-b)+' раз(а)')
else if c<b then
WriteLn('Четных чисел больше на '+(b-c)+' раз(а)')
else
WriteLn('Таких чисел нет.');
end.
Объяснение: