Найти площадь треугольника по трем сторонам по формуле Герона.
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var a,b,c,s,p : real;
begin
{ TODO -oUser -cConsole Main : Insert code here }
Writeln('A=');Readln(a);
Writeln('B=');Readln(b);
Writeln('C=');Readln(c);
p:=(a+b+c)/2;
s:=sqrt(abs(p*(p-a)*(p-b)*(p-c))); //формула герона
Writeln('S=',s:3:2);
Readln;
end.
|