Известно, что где-то правее робоа есть закрашенная клетка.составьте алгоритм, под которого робот закрасит ряд клеток до закрашенной клетки и вернётся в исходное положение.

Вот вот без рисунка не

у меня где сам не

Pascalabc.net 3.4.2, сборка 1843 от 24.10.2018 внимание! если программа не работает, обновите версию!

type

  pt = record

    x, y: real

  end;

  res = record

    p1, p2: pt;

    l2: real

  end;

function l(m1, m2: pt): res;

begin

  result.p1 : = m1;

  result.p2 : = m2;

  result.l2 : = sqr(m2.x - m1.x) + sqr(m2.y - m1.y)

end;

begin

  var m : = new pt[3];

  var r : = new res[3];

  for var i : = 0 to 2 do

    read(m[i].x, m[i].y);

  r[0] : = l(m[0], m[1]);

  r[1] : = l(m[0], m[2]);

  r[2] : = l(m[1], m[2]);

  var minr : = r.minby(t -> t.l2);

  var s : = $'({minr.p1.x},{minr.p1.y}) и ({minr.p2.x},{minr.p2.y})';

  println('минимальное расстояние между точками', s)

end.

пример -2 1.5 0.5 3 3 -2 минимальное расстояние между точками (-2,1.5) и (0.5,3)

ответ:

# 1

x, n, summ = 1, -1, -1

while x ! = 0:

    summ += x

    n += 1

    x = int(

print(summ, n)

# 2

a = float(

summ, n = 0.0, 0

while summ < = a:

    n += 1

    summ += 1/n

print(n, summ)

# 3

s, k, start = (int( for i in range(3))

n = 0

while n < 10:

    if start % 10 == k and start % s == 0:

        print(start, end=' ')

        n += 1

    start = start + s if n ! = 0 else start + 1

объяснение: