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. //Конец программы
Объяснение:
Поделитесь своими знаниями, ответьте на вопрос:
Алгоритмическая конструкция, в которой, в зависимости от результата проверки условия («да» или «нет»), предусмотрен выбор одной из двух последовательностей действий: цикл следование ветвление2.Условный оператор организовывает: неполное ветвление вложенный цикл цикл с параметром цикл с условием3.Алгоритм называется разветвляющимся, если действия выполняются последовательно друг за другом некоторая последовательность действий повторяется многократно существует условие выбора для выполнения действий выполняется ранее разработанный алгоритм4.В полном ветвлении существуют действия только в ветке «Да» в ветке «Да» и ветке «Нет» только в ветке «Нет»5.В неполном ветвлении существуют действия только в ветке «Да» в ветке «Да» и ветке «Нет» только в ветке «Нет»6.В результате выполнения фрагмента программы: а:=5; b:=20; а:=а-b/2; если а>b то с:=а+b иначе с:=b-а; все переменная с примет значение: 25 14, 5 -15 -14, 5