Question

70 балов!!!!Даны три числа, определить существование треугольника, если да то определить площадь(программа в паскале)

Answer 1

program raf105;

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

begin

write('Введите длины трёх сторон: ');

readln(a,b,c);

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

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

if (a < b+c) and (b < a+c) and (c < a+b)  

 then

 begin

   writeln ('Треугольник существует.');

   writeln ('Периметр треугольника: ',s);

 end

 else writeln ('Треугольник не существует.');

end.

Программа написана на языке PascalABC.NET