Question

Даны вещественные положительные числа a, b, c. Выяснить, существует ли треугольник со сторонами a, b, c. Условие существования: сумма двух любых сторон больше третьей стороны.с if

Answer 1

Program chaynick
var a, b, c: real;
begin
writeln ('существует ли треугольник со сторонами а,b,c. Введите а');
readln (a);
write ('Введите b');
readln (b);
write ('Введите с');
readln (с);
if a+b>c and a+c>b and b+c>a then
writeln ('Существует')
else
writeln ('Не существует')
end.

Answer 2

Для того, чтобы выяснить, существует ли треугольник со сторонами a, b, c, нужно проверить, выполняется ли условие существования треугольника: сумма двух любых сторон больше третьей стороны. Это условие можно записать в виде трех неравенств:

a + b > c a + c > b b + c > a

Если все эти неравенства истинны, то треугольник существует. Если хотя бы одно из них ложно, то треугольник не существует.

Для того, чтобы написать программу на языке Паскаль, которая проверяет условие существования треугольника, можно использовать оператор if. Пример такой программы:

program triangle; var a, b, c: real; // объявляем вещественные переменные a, b, c begin writeln('Введите a, b, c'); // выводим приглашение для ввода readln(a, b, c); // считываем значения a, b, c с клавиатуры if (a + b > c) and (a + c > b) and (b + c > a) then // проверяем условие существования треугольника writeln('Треугольник существует') // если условие выполняется, выводим сообщение else writeln('Треугольник не существует'); // если условие не выполняется, выводим другое сообщение readln; // ждем нажатия клавиши end.

Надеюсь, что это ответ помог вам понять, как решить задачу.