Var
a: array[1..15] of integer;
i, sum, count: integer;
begin
for i:=1 to 15 do
readln(a[i]);
sum := 0; count := 0;
for i:=1 to 15 do
if a[i] > 0 then
begin
sum := sum + a[i];
inc(count);
end;
writeln(sum, ' ', count);
end.
Program A1;
var x, i, s: integer;
begin
writeln('Введите число x');
readln(x);
s:=0;
for i:= 1 to x do
if x mod i = 0 then
begin
write(i,' ');
s:=s+i;
end;
writeln;
writeln('s=',s);
<span>end.</span>
Var i,j,n,m:integer;
a:array[1..100] of integer;
begin
Read(n);
for i:=1 to n do
for j:=1 to n do
begin
if cos(sqr(i)+n)>0 then m:=m+1;
End;
write(m);
<span>End.</span>
Цель любой антивирусной программы — обнаружить вирусы на компьютере, если они есть, и устранить возможные опасные последствия. В работе антивирусных программ можно выделить три основные функции:
• обнаружение зараженных объектов;
• дезактивация вирусов;
• восстановление пораженных объектов (« лечение »).
Существует три типа объектов, подверженных заражению компьютерными вирусами:
• носители;
• файлы;
• записи баз данных.
Обнаружение вируса состоит в выявлении зараженного объекта. Решение, что с ним делать, должен принять и выполнить сам пользователь. Демонстрационные и пробные версии антивирусных программ часто работают в режиме «только обнаружение».
Дезактивация вируса состоит в отключении активного вируса и блокировании средств его запуска. При этом возможно «вычищение» вируса из оперативной памяти, корректировка файлов, используемых при загрузке системы, перенос зараженных файлов в отдельный каталог (карантин) для последующего изучения. Последний прием обычно применяется, если вирус обнаружен в момент копирования файла на компьютер. Файл, временно помещенный в специальную папку, не может быть запущен ни случайно, ни автоматически.
При лечении вирус уничтожается и восстанавливается прежнее состояние системы. Это возможно, потому что вирус скрывает свое присутствие и зараженная программа должна работать точно так же, как и незараженная. Поэтому в файле, пораженном вирусом, как правило, остается все, что необходимо для его восстановления.