Объяснение:
program treugolnik;
uses crt;
var
x1, y1, x2, y2, x3, y3, p:real;
function dlina(a1,b1, a2,b2:real):real;
begin
dlina:=sqrt(sqr(a1-a2)+sqr(b1-b2));
end;
begin
writeln('Введите координаты 1-ой вершины');
write('x='); readln(x1);
write('y='); readln(y1);
writeln('Введите координаты 2-ой вершины');
write('x='); readln(x2);
write('y='); readln(y2);
writeln('Введите координаты 3-ей вершины');
write('x='); readln(x3);
write('y='); readln(y3);
p:=dlina(x1,y1,x2,y2)+dlina(x1,y1,x3,y3)+dlina(x2,y2,x3,y3);
writeln('Периметр=',p);
end.
# Так сойдёт?
from math import sqrt
print('Введите коэффициенты a, b, c для ax^2 + bx + c = 0 в виде "a b c", где коэффициент а не равен 0')
a, b, c = list(map(int, input().split())) # здесь поменяй ввода квадратного уравнения, если другой нужен
D = b ** 2 - 4 * a * c # дискриминант
if D < 0:
print("Нет решений")
elif D == 0:
x = (-1 * b + sqrt(D)) / (2 * a)
print("Уравнение имеет одно решение:", x)
else:
x1 = (-1 * b + sqrt(D)) / (2 * a)
x2 = (-1 * b - sqrt(D)) / (2 * a)
print("Уравнение имеет два решения:", x1, "и", x2)