Даны длины сторон треугольника A, B, C. Найти площадь треугольника S

Ответ:

Разъяснение:

по формуле Герона Язык Pascal

program ger;

uses crt;

var a, b, c:integer;

function geron(a,b,c:integer):double;

var p:double;

begin

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

 geron:=p*(p-a)*(p-b)*(p-c);

end;

begin

 write('vvedite a-gt; '); readln(a);

 write('vvedite b-gt; '); readln(b);

 write('vvedite c-gt; '); readln(c);

 writeln(geron(a,b,c));

 readkey;

end.