Question

Паскаль
Даны три отрезка длинной a, b, c. Проверить, существует ли треугольник с такими сторонами. Если да, то вывести на экран сообщение "Треугольник существует!", найти его плошадь и вывести её на следующей строке, если нет, то вывести на экран сообщение "Треугольника не существует".​

Answer 1

Ответ:

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

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

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

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

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

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

   else

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

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

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

Объяснение: