Даны три отрезка с длиной a,b,c. Сделайте программку которая определяет способности

Ответ:

Для хоть какого треугольника : сумма 2-х сторон больше 3-й

Объяснение:

var a,b,c:integer;

begin

Readln(a,b,c);

if (a+bgt;c) and (b+cgt;a) and (a+cgt;b) then Writeln('треугольник существует')

else Writeln('Не существует');

end.

Если прямоугольного треугольника:

var

 a, b, c : longint;

begin

 write('Введите a, b и c через пробел: ');

 readln(a, b, c);

 if (sqr(a) = sqr(b) + sqr(c)) or  

    (sqr(b) = sqr(a) + sqr(c)) or

    (sqr(c) = sqr(a) + sqr(b)) then write('Можно!') else write('Нельзя!')

end.