Предмет: Информатика,
автор: 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.
Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadArrReal('Введите длины сторон:',3);
a.Sort;
if Sqr(a[2])=Sqr(a[0])+Sqr(a[1]) then Writeln('Треугольник прямоугольный')
else Writeln('Треугольник не прямоугольный')
end.
Похожие вопросы
Предмет: Алгебра,
автор: esvostrick1980
Предмет: Биология,
автор: sinenko17082009
Предмет: Английский язык,
автор: petrovskadarina7a
Предмет: Математика,
автор: уати
Предмет: Математика,
автор: алина2094