Проверьте, можно ли построить треугольник из отрезков с длинами x, y, z и, если можно, то какой - остроугольный, прямоугольный или тупоугольный. помогите, должно быть 1) тест 2) блок-схема 3) программа

Проверьте, можно ли построить треугольник из отрезков с длинами x, y, z и, если можно, то какой - остроугольный, прямоугольный или тупоугольный. помогите, должно быть 1) тест 2) блок-схема 3) программа
Гость
Ответ(ы) на вопрос:
Гость
Program zadacha; Var x,y,z,ans:Int64; Begin ReadLn(x,y,z); If (x>0) and (y>0) and (z>0) then Inc(ans); If (ans=0) then WriteLn('Такой треугольник построить нельзя') else begin      Write('Такой треугольник можно построить');      If(x=y) xor (x=z) xor (y=z) then Write(', он будет равнобедренным') else      If(x=y) and (x=z) and (z=y) then Write(', он будет равносторонним')else      If(x=y) xor (x=z) xor (y=z) then Write(', он будет равнобедренным');      If (sqr(x)+sqr(y)=sqr(z)) or (sqr(y)+sqr(z)=sqr(x)) or (sqr(z)+sqr(x)=sqr(y)) then write(', он будет прямоугольным.')  else      If(sqrt(sqr(x)+sqr(y))>z) xor (sqrt(sqr(z)+sqr(y))>x) xor (sqrt(sqr(x)+sqr(z))>y) then Write(', он будет остроугольным.') else write(', он будет тупоугольгым.'); end; End.   ps: не забудь пометить как лучшее решение плизз)    
Не нашли ответ?
Ответить на вопрос
Похожие вопросы