Объяснение:
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.
Задача №2. Вычислите с математических функций значение следующих выражений:
1)
x1 = (-b - (b**2 - 4 * a * c)**(1/2)) / (2 * a)
x2 = (-b + (b**2 - 4 * a * c)**(1/2)) / (2 * a)
2)
import math
y = 1 + (x / math.factorial(1)) + (x**2 / math.factorial(2)) + (x**3 / math.factorial(3))
Задача №3. Дано вещественное неотрицательное число, состоящее из четырех цифр (две цифры - целая часть, две цифры - дробная часть). Определите, является ли запись его целой части симметричной записи дробной части. Если число симметричное, то выведите 1, иначе выведите любое другое число.
x = float(input())
f1, f2, f3, f4 = int((x * 100) % 10), int((x * 10) % 10), int(x) % 10, int(x) // 10 % 10
print('1' if f1 == f4 and f2 == f3 else f3)
