Составить программу вычисления длин медиан треугольника,у которой длины сторон a,b,c

Question

Составить программу вычисления длин медиан треугольника,у которой длины сторон a,b,c

Answer 1

Program asd;
USES crt;
var a,b,c,s1,s2,s3: real;
BEGIN
Clrscr;
Writeln('Vvedite dliny storony a: ');
Readln(a);
Writeln('Vvedite dliny storony b: ');
Readln(b);
Writeln('Vvedite dliny storony c: ');
Readln(c);
s1:=sqrt(2*a*a+2*b*b-c*c)/2;
s2:=sqrt(2*a*a+2*c*c-b*b)/2;
s3:=sqrt(2*c*c+2*b*b-a*a)/2;
Writeln('Dliny median: |',s1:2:2,'|',s2:2:2,'|',s3:2:2,'|');
Readln;
END.