Question

Найти площадь треугольника по трём сторонам в делфи7Нужно составить программу

Answer 1

Var a,b,c,s,p : real;
begin
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.