Question

Даны произвольные числа a, b, c. Выяснить, можно ли построить треугольник с такими сторонами, если можно, то какой.

Answer 1

Получится вот так :)

Answer 2

а можно на паскале

Answer 3

В ответе ниже)

Answer 4

Не пишут требуемый язык в условии, а потом удивляются, почему им написали на C++

Answer 5

И не говори 

Answer 6

)))

Answer 7

По теореме косинусов находим косинус угла, лежащего против большей стороны и определяем вид треугольника.

var a, b, c, alpha: real;
begin
  write('Введите стороны: ');
  read(a, b, c);
  if a < b then swap(a, b);
  if a < c then swap(a, c);
  alpha := (b * b + c * c - a * a) / (2 * b * c);
  if a >= b + c then
    writeln('Треугольник нельзя построить')
  else if alpha = 0 then
    writeln('Треугольник прямоугольный')
  else if alpha > 0 then
    writeln('Треугольник остроугольный')
  else
    writeln('Треугольник тупоугольный')
end.