Задание 1 Эти микрокоманды вируса заражают дукемты World и Exsell так: удаление или искажение файлов засорение оперативной памяти задание 2 интернет задание 3 (ответ 2) Программы которые могут "размножается" задание 4 сетевыми задание 5 (ответ 3) На сравнении программных кодов с кодами известных вирусов из базы данных антивирусной программы задание 6 (ответ 4) MS-DOS, MS Word, AVP задание 7 (ответ 1) Программа-вирус один раз копируется в теле (коде) другой программы задание задание 8 Программные средства задание 9 сетевые вируса задание 10 Атака- размножение- зарожение
var
x, y, t, c, n, k: integer;
a: array [1..10] of integer;
begin
for t := 1 to 10 do
a[t] := 0;
read(x, y);
t := x;
while (t <> 0) do
begin
c += 1;
t := t div 10;
end;
k := 1;
for t := 1 to c do
k *= 10;
while (x <> 0) do
begin
n := y;
t := x div k;
while (n <> 0) do
begin
c := n mod 10;
n := n div 10;
if (c = t) and (a[c + 1] = 0) then
begin
write(t, ' ');
a[c + 1] += 1;
break;
end;
end;
x := x mod k;
k := k div 10;
end;
end.