Question

В Паскаль. Составте программу с диалогом для нахождения площади треугольника по теореме Герона. s= кв. корень p (p-a) (p-b) (p-c) p - полупериметр. a,b,c- стороны. Помогите пожалуйста!

Answer 1

program ndj;

uses crt;

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

begin

clrscr;

p:=(a+b+c)/2; \\ высчитывает полупериметр

s:=sqrt(p*(p-a)*(p-b)*(p-c)); \\ высчитывает площадь

writeln(s);

readln;

end.