Форма, рик, кит, кіт, фарт, норма, корм, міф, роман, мати, фінт, фора, міра, мир, Рим, тік, романтика, Кіра, Рима, карта, рама, комар, марка, рак, кара, фара, рамка, рифма, тиран, Іран, Ірак, Каїр, морфін, факт, карат, таран, кіно, кома
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
16 бит=2байта
Чтобы перевести из байт в Килобайты необходимо разделить на 1024
(8*56*40*2)/1024=35Кб