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

Даны три стороны треугольника .определить существует ли треугольник с заданными сторонами,если да ,то определить является ли он прямоугольным,равнобедренным или равносторонним,какой треугольник тупоугольный или остроугольный.
- Предмет:
  Информатика
- Автор:
  freewaygsva
- 6 лет назад

Ответы 1

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 d<e then writeln('Это тупоугольный треугольник!')

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

end;

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

end.
- Автор:
  jaydan
- 6 лет назад
- 0
Добавить свой ответ

Еще вопросы

How much to ban the user?

1 hour 1 day 100 years