<span><span>F = (¬A·¬B·C)v(¬A·B·¬C)v(¬A·B·C)v(A·¬B·¬C)v(A·B·C)
</span></span><span>Предлагаю Excel программку, которая эту функцию строит автоматически.
</span>
Линз в колонках нет и быть не может. Линзы используются только в оптических приборах, например в проекторах
Function L(x1,y1,x2,y2:real):real;
begin
L:=sqrt(sqr(x2-x1)+sqr(y2-y1));
end;
var
x1,y1,x2,y2,x3,y3,P:real;
begin
Write('Введите координаты (x,y) вершины A: '); Read(x1,y1);
Write('Введите координаты (x,y) вершины B: '); Read(x2,y2);
Write('Введите координаты (x,y) вершины C: '); Read(x3,y3);
P:=L(x1,y1,x2,y2)+L(x2,y2,x3,y3)+L(x3,y3,x1,y1);
Writeln('Периметр треугольника равен ',P:0:2)
end.
<em><u>Тестовое решение:</u></em>
Введите координаты (x,y) вершины A: -5 1.4
Введите координаты (x,y) вершины B: 3 5.5
Введите координаты (x,y) вершины C: 0 -2
Периметр треугольника равен 23.11
Например Цветы розовые и оранжевые они пересекаются в точке круги не выделяющие резинку надо обвести красным или синим цветом остаться множество это надо ли вести кружочком или