Запросить стороны треугольника и определить,является ли он разносторонним,равносторонним или равнобедренным. Учесть: третья сторона не должна превышать сумму двух других,иначе треугольник не существует. Задача на тему "Программирование ветвлений на Паскале".

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

program TriangleType;

var
a, b, c: Integer;

begin
// Ввод сторон треугольника
writeln('Введите стороны треугольника:');
readln(a, b, c);

// Проверка существования треугольника
if (a + b > c) and (a + c > b) and (b + c > a) then
begin
// Определение типа треугольника
if (a = b) and (b = c) then
writeln('Треугольник равносторонний')
else if (a = b) or (a = c) or (b = c) then
writeln('Треугольник равнобедренный')
else
writeln('Треугольник разносторонний');
end
else
writeln('Треугольник не существует');
end.