• Три точки заданы своими координатами. Определите, можно ли построить треугольник с вершинами в этих точках. Составьте программу в Pascal, пожалуйста!

Ответы 1

  • //Pascal ABC.NET v3.0 сборка 1111Var x1,y1,x2,y2,x3,y3:integer; a1,a2,a3:real;begin read(x1,y1,x2,y2,x3,y3); a1:=sqrt(sqr(x1)+sqr(y1)); a2:=sqrt(sqr(x2)+sqr(y2)); a3:=sqrt(sqr(x3)+sqr(y3)); if (a1<(a2+a3)) and (a2<(a1+a3)) and (a3<(a2+a1)) then writeln('Yes') else writeln('No');end.Пример ввода:123456Пример вывода:No
    • Автор:

      johnathan
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years