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

Question

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

vikarubachok · 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....

Популярные вопросы