Написать программу определяющую является ли окружность с радиусом r вписанной или описанной около квадрата

162

455

Посмотреть ответы 2

Ответы на вопрос:

madeintower

Информатика

4,6(33 оценок)

Var a,r,rvp,rop: real; begin write('введите сторону квадрата и радиус окружности: '); readln(a,r); rvp: =a/2; rop: =a*sqrt(2)/2; if r< rvp then writeln('окружность расположена внутри вписанной') else if r=rvp then writeln('введен радиус вписанной окружности') else if r< rop then writeln('окружность расположена между вписанной и описанной') else if r=rop then writeln('введен радиус описанной окружности') else writeln('окружность расположена вне описанной') end. тестовое решение: введите сторону квадрата и радиус окружности: 8 5 окружность расположена между вписанной и описанной