Написать программу для определения является ли треугольник прямоугольным (для определения является ли треугольник прямоугольным, необходимо проверить выполняется ли теорема Пифагора)

Question

Информатика

Тасюта

7 июля, 10:56

Написать программу для определения является ли треугольник прямоугольным (для определения является ли треугольник прямоугольным, необходимо проверить выполняется ли теорема Пифагора)

+5

Ответы (1)

Знаете ответ на вопрос?

Борислава · Answer 1

Var a, b, c:real;

begin

readln (a, b, c) ;

if c = sqrt (sqr (a) + sqr (b)) then writeln (' прямоугольный') else writeln (' не прямоугольный') ;

end.