помогите пожалуйста. PASCALABC.NET Даю 50 БАЛЛОВ
Ввести длины отрезков a,b,c,d. Для каждой тройки этих отрезков, из которых можно построить треугольник, вычислить площадь. Напечатать площадь наименьшего треугольника. Площадь треугольника вычислять с помощью процедуры по формуле Герона.
Ввести длины отрезков a,b,c,d. Для каждой тройки этих отрезков, из которых можно построить треугольник, вычислить площадь. Напечатать площадь наименьшего треугольника. Площадь треугольника вычислять с помощью процедуры по формуле Герона.
Answers & Comments
program abc;
var a,b,c,d:integer;
p,s,min:real;
begin
readln(a,b,c,d);
min:=a*b*c*d;
p:=(a+d+c)/2;
s:=sqrt((p-a)*(p-d)*(p-c)*p);
if s<min then min:=s;
p:=(a+b+c)/2;
s:=sqrt((p-a)*(p-b)*(p-c)*p);
if s<min then min:=s;
p:=(b+c+d)/2;
s:=sqrt((p-b)*(p-c)*(p-d)*p);
if s<min then min:=s;
p:=(b+a+d)/2;
s:=sqrt((p-a)*(p-b)*(p-d)*p);
if s<min then min:=s;
writeln(min);
end.