Предмет: Информатика, автор: PAPICH228

Написать программу в Паскале 1. Заданы стороны треугольника. Проверить является ли он прямоугольным

Ответы

Автор ответа: Аноним
0
PascalABC.NET 3.4.0, сборка 1675 от 12.06.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadArrReal('Введите длины сторон:',3);
  a.Sort;
  if Sqr(a[2])=Sqr(a[0])+Sqr(a[1]) then Writeln('Треугольник прямоугольный')
  else Writeln('Треугольник не прямоугольный')
end.
Похожие вопросы
Предмет: Биология, автор: sinenko17082009
Предмет: Математика, автор: алина2094