Отыскать площадь треугольника по трем знаменитым сторонам с условием,если сумма 2-ух

Ответ:

Объяснение:

var  

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

begin

p:=0;s:=0;

writeln('Введите стороны треугольника через пробел');

readln (a,b,c);

if (a+bgt;c) and (a+cgt;b) and (b+cgt;a) then  

begin

writeln('Треугольник со гранями ', a,' ',b,' ',c);

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

s:=sqrt(p*(p-a)*(p-b)*(p-c));

writeln('Площадь треугольника = ',s:6:2);

end

else writeln('Треугольника со гранями ',a,',',b,',',c,'не существует');

readln;

end.