ПаскальДаны три отрезка длинноватой a, b, c. Проверить, существует ли треугольник

Ответ:

var a, b, c: integer;  //инициализация переменных (длин отрезков)

begin  //Начало программки (тело программки)

   write (' Длины сторон: ');  //Вывод известия в консоль

   readln (a,b,c);  //Организация ввода (длин отрезков)

   if (a lt;= b+c) and (b lt;= a+c) and (c lt;= a+b) then  //В условии if проверяется, что каждая из сторон меньше или равна сумме иных. Если желая бы одна будет больше, то все логическое выражение возвратит ересь (false). В таком случае сработает ветка else.

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

   else

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

readln(); //Инициализация закрытия по нажатию на кнопку

end. //Конец программки

Объяснение: