Question

Пусть даны длины сторон треугольника. Вычислите его площадь.

Answer 1

Var s,p,a,b,c:real;
begin
readln(a,b,c);
p:=(a+b+c)/2; 
s:=sqrt(p*(p-a)*(p-b)*(p-c)); 
writeln('Площадь треугольника: ',s);
end.