Составить программу в Паскале.Даны три положительных числа а,в,с. Проверить, могут ли быть они длинами сторон треугольник. Если да, то вычислить площадь треугольника. (Нужно учитывать, что стороны не могут равняться нулю. И возможно существование равностороннего треугольника) Основные формулы: а<=б+с, б

Предыдущий
вопрос Следующий
вопрос

Программа на Pascal:

program TriangleArea;
var
a, b, c, p, s: real;
begin
// Ввод данных
writeln('Введите длины сторон треугольника:');
write('a: ');
readln(a);
write('b: ');
readln(b);
write('c: ');
readln(c);
// Проверка условия существования треугольника
if (a <= b + c) and (b <= a + c) and (c <= a + b) then
begin
// Вычисляем полупериметр и площадь треугольника по формуле Герона
p := (a + b + c) / 2;
s := sqrt(p * (p - a) * (p - b) * (p - c));
writeln('Треугольник существует');
writeln('Площадь треугольника: ', s:0:2);
end
else
writeln('Треугольник с такими сторонами не существует');
end.

Программа сначала запрашивает у пользователя длины сторон треугольника, затем проверяет условие существования треугольника. Если треугольник с такими сторонами существует, программа вычисляет его площадь по формуле Герона и выводит результат на экран.