Напишите следующее выражение на паскале: "точка с координатами(x, y)лежит внутри круга радиуса 5 с центром в точке (5, 2)

И еще раз???   Отвечаю

 // PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-11,11); a.Println;
  // 1
  begin
    var s:=a.Where(t->t<0);
    if s.Count=0 then
      Writeln('1. Нет отрицательных элементов')
    else
      Writeln('1. Первый отрицательный элемент номер ',
          a.IndexOf(s.First)+1)
  end;
  // 2
  begin
    var s:=a.Select((v,i)->(v,i)).Where(t->(t[0]>0) and t[0].IsEven);
    if s.Count=0 then
      Writeln('2. Нет четных положительных элементов')
    else begin
      var r:=s.Last;
      Writeln('2. Последний четный положительный элемент номер ',r[1]+1,
          ', значение ',r[0])
      end
  end;
  // 3
  begin
    var s:=a.Select((v,i)->(v,i)).Where(t->t[0] mod 5=0);
    if s.Count<2 then
      Writeln('3. Нет двух элементов, кратных 5')
    else
      Writeln('3. Номер второго элемента, кратного 5, равен ',
          (s.Skip(1).Take(1)).First[1]+1)
  end;
  // 4
  begin
    var s:=a.Select((v,i)->(v,i)).Where(t->t[0]=0);
    if s.Count<3 then
      Writeln('4. Нет трех нулевых элементов')
    else begin
      s:=s.Skip(1).Take(2);
      Writeln('4. Количество положительных элементов между ',
          'вторым и третьим нулевыми элементами равно ',
          a[s.First[1]+1:s.Last[1]].Where(t->t>0).Count)
      end
  end;    
  // 5
  begin
    var s:=a.IndexesOf(t->t>0).Take(4).Select(t->t+1);
    if s.Count<4 then
      Writeln('5. Нет четырех положительных элементов')
    else begin
      Write('5. Номера первых четырех положительных элементов: ');
      s.Println
      end
  end;
  // 6
  begin
    var s:=a.IndexesOf(t->t<0);
    if s.Count=0 then
      Writeln('6. Нет отрицательных элементов')
    else
      Writeln('6. Номера первого и последнего отрицательных элементов: ',
          s.First+1,' ',s.Last+1)
  end;
  // 7
  begin
    var s:=a.IndexesOf(t->t>0);
    if s.Count=0 then
      Writeln('7. Нет положительных элементов')
    else begin
      var i1:=s.First;
      s:=a.IndexesOf(t->t<0);
      if s.Count=0 then
        Writeln('7. Нет отрицательных элементов')
      else begin
        var i2:=s.Last;
        Writeln('7. Количество четных элементов между первым ',
            'положительным и последним отрицательными элементами: ',
            a?[i1+1:i2].Where(t->t.IsEven).Count)
        end
      end  
  end
end.

1.

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

алг

нач

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

ц1

ц2

ц6

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

ц2

ц6

ц1

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

ц6

ц1

ц2

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

кон

алг ц1

нач

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

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

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

поднять перо

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

кон

алг ц2

нач

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

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

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

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

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

поднять перо

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

кон

алг ц6

нач

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

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

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

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

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

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

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

поднять перо

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

кон

2.

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

алг

нач

цел й

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

нц для й от 2 до 6

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

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

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

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

поднять перо

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

кц

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

кон

3.

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

алг

нач

цел д,к

вывод ('Введите длину вагона (д>=5) д = ')

ввод д

вывод ('Введите количество вагонов (к>=1) к = ')

ввод к

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

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

лк (д)

нц к раз

в (д)

кц

поднять перо

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

кон

алг лк (цел д)

нач

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

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

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

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

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

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

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

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

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

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

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

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

кон

алг в (цел д)

нач

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

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

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

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

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

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

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

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

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

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

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

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

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

кон

Объяснение:

Смотри картинки