Известны длины сторон треугольника a, b, c. Написать программу, вычисляющую площадь этого треугольника (по формуле Герона). Выполнить программу для исходных данных a=3, b=4, c=5. Язык Паскаль.

Предыдущий
вопрос Следующий
вопрос

program TriangleArea;
var
a, b, c, p, area: real;
begin
a := 3;
b := 4;
c := 5;
p := (a + b + c) / 2;
area := sqrt(p * (p - a) * (p - b) * (p - c));
writeln('Area of the triangle is: ', area:0:2);
end.

После выполнения программы, на экране будет выведен результат:

Area of the triangle is: 6.00