Условие:
Напишите текст программы Pascal для расчёта периметра треугольника. Координаты вершин треугольника (x1,y1) (x2,y2) (x3,y3) вводятся с клавиатуры.
Решение:
Текст программы
var x1, y1, x2, y2, x3, y3, P : real;
function d(x1, y1, x2, y2 : real) : real;
begin
d:= sqrt(sqr(x1-x2) + sqr(y1-y2));
end;
begin writeln('Введи...