в паскале Запросить

с клавиатуры 3 стороны треугольника и

по ним определить, является ли он

прямоугольным, сообщение вывести на

экран.

Подсказка.

Для каждой стороны применить теорему

Пифагора и проверить, выполняется ли

она. Если выполняется, то треугольник

является прямоугольным. Переменные

должны быть целыми числовыми. Функция

квадрата - sqr (x), корня квадратного -

sqrt (x). Программу проверить при сторонах

3, 4, 5 - прямоугольный, а 4, 5, 6 - не

прямоугольный.

Question

Информатика

Торя

9 сентября, 09:15

в паскале Запросить

с клавиатуры 3 стороны треугольника и

по ним определить, является ли он

прямоугольным, сообщение вывести на

экран.

Подсказка.

Для каждой стороны применить теорему

Пифагора и проверить, выполняется ли

она. Если выполняется, то треугольник

является прямоугольным. Переменные

должны быть целыми числовыми. Функция

квадрата - sqr (x), корня квадратного -

sqrt (x). Программу проверить при сторонах

3, 4, 5 - прямоугольный, а 4, 5, 6 - не

прямоугольный.

+2

Ответы (1)

Знаешь ответ?

Рахиль · Answer 1

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.