даны три вещественных числа. можно ли составить из них треугольник. паскаль.

Question

даны три вещественных числа. можно ли составить из них треугольник. паскаль.

Answer 1

uses crt;

var

  a, b, c: integer;

begin

  write('Введите длины сторон: '); readln(a,b,c);

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

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

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

end.

Answer 2

program z3;
uses crt;
var a,b,c,p:integer;
s:real;
begin
read(a,b,c);
if (a begin
p:=a+b+c;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('площадь=',s:5:2);
writeln('периметр=',p);
end
else
writeln('треугольник не возможен');
end.