Написать программу в паскаль определяющую можно ли построить прямоугольник по четырем заданным отрезкам
Написать программу в паскаль определяющую можно ли построить прямоугольник по четырем заданным отрезкам
Гость
Ответ(ы) на вопрос:
Гость// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
begin
var a:=ReadArrReal(4).Sorted.ToArray;
if (a[0]=a[1]) and (a[2]=a[3]) then Writeln('Можно')
else Writeln('Нельзя')
end.
Не нашли ответ?
Похожие вопросы