Найти площадь(S) треугольника, если известны длины всех 3-х сторон этого треугольника....

Question

Найти площадь(S) треугольника, если известны длины всех 3-х сторон этого треугольника. Длины сторон a, b,c вводятся пользователем с клавиатуры.

Answer 1

Uses crt;
var a,b,c:integer;
S,P:real;
  begin
writeln('Ведите a='); readln(a);
writeln('Ведите b='); readln(b);
writeln('Ведите c='); readln(c);
P:=(a*b*c)/2;
S:=sqrt(P*(P-a)*(P-b)*(P-c));
writeln('S=',S);
end.