Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

Program treug;

var a,b,c,max,min,srd,d:real;

begin

writeln(Введите стороны треугольника);

readln(a,b,c);

If (a+b>c) or (b+c>a) or (a+c>b) then

begin

if (a=b) or (b=c) or (a=c) then write (Треугольник равнобедренный);

if (a=b) and (b=c) then write (Треугольник равносторонний);

end;

begin  

Sort(a,b,c,max,min,srd);  

d:=min*min+srd*srd;  

e:=max*max;  

if d>e then writeln(Это остроугольный треугольник!)  

else if dthen writeln(Это тупоугольный треугольник!)  

else if d=e then writeln(Это прямоугольный треугольник!);  

end;

else writeln (Такого треугольника не существует);

end.