Question

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

Answer 1

var a,b,c:real;
begin
writeln ('Введите стороны треугольника');
read (a,b,c);
if ((a + b) > c) and ((a + c) > b) and ((b + c) > a) then
begin
if (sqr(a)+sqr(b)=sqr(c)) then writeln ('Это прямоугольный треугольник');
if (sqr(a)+sqr(b)>sqr(c)) then writeln ('Это остроугольный треугольник');
if (sqr(a)+sqr(b)<sqr(c)) then writeln ('Это тупоугольный треугольник');
end
else writeln ('Такого треугольника не существует');
end.

Answer 2

var a,b,c :integer;
begin
readln(a,b,c);
if (a+b > c) and (b+c > a) and (c+a > b) then
begin
if (a=b) and (b=c) and(c=a) then
writeln('Существует Равносторонний')
else if (a=b)or (b=c) or (c=a) then
writeln('Существует Равнобедренный')
else if(a<>b) and (b<>c) and (c<>a) then
writeln('Существует Разносторонний')
end
else
writeln('Не существует');
end.