В паскале Запросить с клавиатуры 3 стороны треугольника и по ним определить, является ли он прямоугольным, сообщение вывести на экран.Подсказка. Для каждой стороны применить теорему Пифагора и проверить, выполняется ли она. Если выполняется, то треугольник является прямоугольным. Переменные должны быть целыми числовыми. Функция квадрата - sqr(x), корня квадратного - sqrt(x). Программу проверить при сторонах 3, 4, 5 - прямоугольный, а 4, 5, 6 - не прямоугольный.

Question

в паскале Запросить с клавиатуры 3 стороны треугольника и по ним определить, является ли он прямоугольным, сообщение вывести на экран.Подсказка. Для каждой стороны применить теорему Пифагора и проверить, выполняется ли она. Если выполняется, то треугольник является прямоугольным. Переменные  должны быть целыми числовыми. Функция квадрата - sqr(x), корня квадратного -  sqrt(x). Программу проверить при сторонах 3, 4, 5 - прямоугольный, а 4, 5, 6 - не прямоугольный.

zinginc499 · Answer

Var  A, B, C : integer;begin  write('Введите A, B и C: ');  readln(A, B, C);  if (sqr(a) = sqr(b) + sqr(c)) or     (sqr(b) = sqr(a) + sqr(c)) or     (sqr(c) = sqr(b) + sqr(a)) then    writeln('Треугольник прямоугольный')  else    writeln('Треугольник не прямоугольный');end.

Ответы и объяснения 1

Знаете ответ? Поделитесь им!

Есть сомнения?