Помогите пожалуйста составить программу) площадь произвольного треугольника по формуле герона))

Ответы

Ответ дал: Аноним
0
var   a,  b,  c,  p:real; 
begin 
  readln(a,b,c); 
p:=(a+b+c)/2; 
 writeln(sqrt(p*(p-a)*(p-b)*(p-c))); 
end.
Вас заинтересует