1. Рассчитать интервал дискретизации и минимально допустимую частоту дискретизации сигнала, спектральная плотность которого равна нулю при
значениях частоты выше 50 кГц
2. Рассчитать частоту дискретизации группового сигнала, если известна
ширина спектра 96–124 кГц. Для
полосовых сигналов fд может быть определена fmax< fд <2·fmin.

ответ

опустить перо

сместиться на вектор ( 0,4)

сместиться на вектор(2,0)

поднять перо

сместиться на вектор ( -2,-2)

опустить перо

сместиться на вектор ( 2,0)

сместиться на вектор ( 0,-2)

сместиться на вектор ( -2,0)

поднять перо

сместиться на вектор ( 3,0)

опустить перо

сместиться на вектор ( 0,2)

сместиться на вектор ( 2,2)

сместиться на вектор (0,4)

сместиться на вектор ( 0,1)

сместиться на вектор ( -2,0 )

поднять перо

сместиться на вектор ( 3,-1)

опустить перо

сместиться на вектор ( 0,4 )

сместиться на вектор ( 2,0)

сместиться на вектор ( 0,-4)

сместиться на вектор ( -2,0)

поднять перо

сместиться на вектор ( 3,0)

опустить перо

сместиться на вектор ( 0,4)

сместиться на вектор(2,0)

поднять перо

сместиться на вектор ( -2,-2)

опустить перо

сместиться на вектор ( 2,0)

сместиться на вектор ( 0,-2)

сместиться на вектор ( -2,0)

поднять перо

сместиться на вектор ( 0,4)

сместиться на вектор(2,0)

поднять перо

сместиться на вектор ( -2,-2)

опустить перо

сместиться на вектор ( 2,0)

сместиться на вектор ( 0,-2)

сместиться на вектор ( -2,0)

поднять перо

сместиться на вектор (3,0)

опустить перо

сместиться на вектор ( 0,2)

сместиться на вектор ( 2,2)

сместиться на вектор (0,4)

сместиться на вектор ( 0,1)

сместиться на вектор ( -2,0 )

поднять перо

сместиться на вектор(3,-1)

опустить перо

сместиться на вектор ( 0,4)

сместиться на вектор(2,0)

поднять перо

сместиться на вектор ( -2,-2)

опустить перо

сместиться на вектор ( 2,0)

сместиться на вектор ( 0,-2)

сместиться на вектор ( -2,0)

Объяснение:

вроде бы работает

type

 intArr = array[1..10] of integer;

function isPrime(n: integer): boolean;

begin

 result := False;

 if n < 2 then exit;

 var d := 2;

 while (d <= n div 2) and (n mod d <> 0) do

   d += 1;

 result := d > n div 2

end;

var

 a, b: intArr;

begin

 Print('A:');

 for var i := 1 to 10 do

 begin

   a[i] := i;

   Print(a[i])

 end;

 Write(NewLine, 'B: ');

 var j := 0;

 for var i := 1 to 10 do

 begin

   if isPrime(a[i]) then

   begin

     j += 1;

     b[j] := a[i];

     Print(b[j])

   end

 end

end.