Составьте программу которая по трем введенным вами числам определит могут ли эти числа...

Question

Составьте программу которая по трем введенным вами числам определит могут ли эти числа быть длинами сторон треугольника и если да то определить вид этого треугольника

Answer 1

Var
  a, b, c: real;

begin
  writeln('Введите два катета A,B и гипотенузу С треугольника');
  readln(a, b, c);
  if (c >= a + b) or (a + b + c = 0) then writeln('Такого треугольника не существует')
  else begin
    if sqr(c) = sqr(a) + sqr(b) then writeln('Прямоугольный');
    if sqr(c) > sqr(a) + sqr(b) then writeln('Тупоугольный');
    if sqr(c) < sqr(a) + sqr(b) then writeln('Остроугольный');
  end;
end.