Напечатайте точную копию предложения.Текст является формой представления информации об окружающей действительности.​

Объяснение:

использовать Чертежник

алг

нач

сместиться в точку (2,3)

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

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

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

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

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

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

поднять перо

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

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

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

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

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

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

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

поднять перо

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

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

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

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

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

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

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

поднять перо

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

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

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

поднять перо

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

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

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

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

поднять перо

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

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

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

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

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

поднять перо

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

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

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

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

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

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

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

поднять перо

сместиться в точку (0,0)

кон

PascalABC.NET 3.8

function SK(m: array of real; a, b: real) : (real, integer);

begin

 var (s, k) := (0.0, 0);

 foreach var d in m do

  if d.Between(a, b) then

   begin

     s += d;

     Inc(k)

   end;

 Result := (s, k)

end;

begin

var n := ReadInteger('n=');

 var mA := ReadArrReal('Массив А:', n);

 var (a, b) := ReadInteger2('Введите a и b:');

 var (s1, k1) := SK(mA, a, b);

 Println('S1 =', s1, '  k1 =', k1);

 n := ReadInteger('m=');

 var mB := ReadArrReal('Массив B:', n);

 (a, b) := ReadInteger2('Введите c и d:');

 var (s2, k2) := SK(mB, a, b);

 Println('S2 =', s2, '  k2 =', k2);

end.