Ответы на вопрос:
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 окружность расположена между вписанной и описанной
Популярно: Информатика
-
БомБонУтыЙ29.03.2021 16:13
-
raulchikon12.06.2021 09:30
-
GloriaMare23.06.2023 03:04
-
dashayudina0416.10.2021 03:13
-
renatamur20051807.05.2023 03:38
-
sataevaelsa24.07.2021 21:25
-
turovyuriy13.05.2020 22:14
-
Максим55511120.06.2020 04:19
-
markthebest9519.01.2023 12:55
-
Nastyusha2aa525.03.2023 13:44