Question

Выяснить можно ли построить треугольник с тремя данными сторонами.
Условие b+с>а и а+с>b и а+b>с. Стороны вводятся с клавиатуры.
В паскале

Answer 1

 Var A,B,C:real;
 Begin
 WriteLn('Введите длины сторон треугольника');
 ReadLn(A,B,C);
 if (A<C+B)and(B<C+A)and(C<A+B) then WriteLn('Треугольник существует')
 else WriteLn('Треугольник построить нельзя')
 End.