Question

Составить БСА и программу в тетради. Даны три положительных числа. Проверить, могут ли они быть длинами сторон треугольника. Если да, то вычислить площадь этого треугольника (по формуле Герона). очень срочно ​ ( написать решение ) ( ПРОГРАММУ)​

Answer 1

var a,b,c,p,s: real;

begin

 write('Введите стороны треугольника: ');  

 readln(a,b,c);

 if (a < b+c) and (b < a+c) and (c < a+b) then

 begin

   p:=(a+b+c)/2;

   s:=sqrt(p*(p-a)*(p-b)*(p-c));

   writeln('Площадь треугольника: ',s);

 end

 else writeln ('Треугольник не существует');

end.