• Даны три стороны треугольника. Разработайте код, с помощью которого можно определить, является ли данный треугольник прямоугольным.(Pascal)

Ответы 1

  • PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018Внимание! Если программа не работает, обновите версию!begin  var a:=ReadSeqReal('Введите длины сторон:',3).OrderBy(t->t).ToArray;  if Sqr(a[2])=Sqr(a[0])+Sqr(a[1]) then Writeln('Треугольник прямоугольный')  else Writeln('Треугольник не прямоугольный')end.
    answer img
  • Добавить свой ответ

Войти через Google

или

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

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

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