Даны 3 числа. определить, существует ли треугольник с такими сторонами - Pascal
Формулировка задачи:
даны 3 числа. определить, существует ли треугольник с такими сторонами
Решение задачи: «Даны 3 числа. определить, существует ли треугольник с такими сторонами»
textual
Листинг программы
program dark_side; uses crt; var a,b,c:integer: begin clrscr; writeln('enter numbers'); readln(a); readln(b); readln(c); if (a>=b+c)or(b>=a+c)or(c>=a+b) then writeln('there is no such triangle') else writeln('this triangle exists'); readln; end.
Объяснение кода листинга программы
В данном коде на языке Pascal происходит следующее:
- Создается программа под названием
dark_side
. - Включается библиотека crt.
- Объявляются три переменные типа integer: a, b и c.
- Выводится сообщение
enter numbers
(введите числа). - С помощью функции readln считываются три числа с консоли.
- Проверяется условие: если a больше или равно b+c, или b больше или равно a+c, или c больше или равно a+b. Если хотя бы одно из этих условий выполняется, то выводится сообщение
there is no such triangle
(нет такого треугольника). - Если ни одно из условий не выполняется, то выводится сообщение
this triangle exists
(существует такой треугольник). - Выводится символ новой строки с помощью функции readln.