Алгоритм:
Просим пользователя ввести площадь квадрата SK
и площадь окружности SR
Вычислить длину стороны квадрата
![a = \sqrt{SK}](https://tex.z-dn.net/?f=+a+%3D+%5Csqrt%7BSK%7D+)
Вычислить длину диагонали квадрата
![c = \sqrt{2 a^{2} }](https://tex.z-dn.net/?f=+c+%3D+%5Csqrt%7B2+a%5E%7B2%7D+%7D+)
Вычислить радиус окружности
![r = \sqrt{ \frac{SR}{ \pi } }](https://tex.z-dn.net/?f=+r+%3D+%5Csqrt%7B+%5Cfrac%7BSR%7D%7B+%5Cpi+%7D+%7D+)
Если длина диагонали с меньше или равна радиусу окружности r, то квадрат поместится в круге
Если радиус r меньше или равен длине стороны квадрата, то окружность поместится в квадрате.
В противном случае фигуры не поместятся одна в другой.
Вот реализация алгоритма на языке basic:
10 rem Площадь круга и квадрата
20 input "Введите площадь круга"; SR
30 input "Введите площадь квадрата"; SK
40 a=sqr(SK)
50 c=sqr(a^2 * 2)
60 pi=3.1415926
70 r=sqr(SR/pi)
80 if a>=r then print "Круг поместится в квадрат":goto 110
90 if r>=c then print "Квадрат поместится в круг":goto 110
100 print "Фигуры не поместятся друг в друга"
110 print "---------------------------------":print
120 end