Срочно! Помогите написать программу в паскале,которая бы высчитывала площадь треугольника...

Question

Срочно! Помогите написать программу в паскале,которая бы высчитывала площадь треугольника по формуле герона и проверяла возможность существования треугольника! Заранее спасибо

Answer 1

// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018

// Внимание! Если программа не работает, обновите версию!

begin

 var (a, b, c) := ReadReal3('Введите стороны треугольника через пробел:');

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

 begin

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

   Println('Площадь треугольника равна',

       Sqrt(p * (p - a) * (p - b) * (p - c)))

 end

 else Println('Треугольник с такими сторонами не существует')

end.

---