Заранее, ) напишите функцию, вычисляющую длину отрезка по координатам его концов. с этой функции напишите программу, вычисляющую периметр треугольника по координатам его вершин

1. современное короткое, но скорее всего, мало понятное школьнику решение // pascalabc.net 3.1, сборка 1213 от 04.04.2016 function linelen(a,b: (real,real)): =   sqrt(sqr(b.item1-a.item1)+sqr(b.item2-a.item2)); begin   var a: array[1..3] of (real,real);   var x,y: real;   writeln('введите три пары координат x,y');   for var i: =1 to 3 do begin read(x,y); a[i]: =(x,y) end;   writeln('периметр треугольника равен ',linelen(a[1],a[2])+       linelen(a[1],a[3])+linelen(a[2],a[3])) end. тестовое решение: введите три пары координат x,y 3 -3.5 -6 8 4 5.2 периметр треугольника равен 33.7449685386805 2. традиционное, но возможно тоже не понятное школьнику решение // pascalabc.net 3.1, сборка 1213 от 04.04.2016 type   point=record       x,y: real       end; function linelen(a,b: point): real; begin   result: =sqrt(sqr(b.x-a.x)+sqr(b.y-a.y)); end;   var   a: array[1..3] of point;   begin   writeln('введите три пары координат x,y');   for var i: =1 to 3 do read(a[i].x,a[i].y);   writeln('периметр треугольника равен ',linelen(a[1],a[2])+       linelen(a[1],a[3])+linelen(a[2],a[3])) end.

Пытаемся подобрать код, начиная с наименьшей длины. коды длины 1. е = 0: нет однозначности, 0101 = оо = ет е = 1: нет однозначности, 101 = т = ео коды длины 2. е = 00: ок, получился префиксный код, про который известно, что он допускает однозначное декодирование. е = 01: совпадает с о е = 10: нет однозначности, 101101 = тт = ело е = 11: совпадает с л. таким образом, есть единственный ответ 00.