Заданы длины сторон треугольника. Определить, является ли этот треугольник равнобедренным. Pascal

Треугольник равнобедренный, если у него хотя бы две стороны равны. Но сначала нужно проверить, существует ли треугольник: сумма любых двух сторон должна быть больше третьей.

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

program IsoscelesTriangle;
var
a, b, c: real;
begin
readln(a, b, c);

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

0 0 Пожаловаться