Начертите структурную схему алгоритма, напишите и отладьте про¬грамму для табуляции следующей функции

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.

Задание 1
Эти микрокоманды вируса заражают дукемты World и Exsell так:
удаление или искажение файлов
засорение оперативной памяти
задание 2
интернет
задание 3
(ответ 2) Программы которые могут "размножается"
задание 4
сетевыми
задание 5
(ответ 3) На сравнении программных кодов с кодами известных вирусов из базы данных антивирусной программы
задание 6
(ответ 4) MS-DOS, MS Word, AVP
задание 7
(ответ 1) Программа-вирус один раз копируется в теле (коде) другой программы
задание
задание 8
Программные средства
задание 9
сетевые вируса
задание 10
Атака- размножение- зарожение