Question

Алгоритм вычисления площади треугольника

Answer 1

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

begin

  read(a,b,c);

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

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

  write(s:0:2);

end.

 

Вроде так