Чтобы квадрат вписался в круг, его диагональ должна быть равна диаметру круга. Если трактовать "уместиться" как "пролезть", то диагональ должна быть меньше диаметра.. Формулы площадей квадрата S₁ и круга S₂ известны, что легко позволяет нам найти нужное условие. Если нужно, чтобы случай, когда квадрат вписан в круг тоже учитывался, строгое неравенство следует заменить нестрогим.
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016 begin var s1:=ReadReal('Площадь квадрата'); var s2:=ReadReal('Площадь круга'); if pi*s1<2*s2 then Writeln('Квадрат умещается в круге') else Writeln('Квадрат не умещается в круге') end.
Тестовое решение: Площадь квадрата 24.6 Площадь круга 28.4 Квадрат не умещается в круге
89 берём 64 Это 2^6 степени 89-64=25 (1) 25-32 не надо (0) 25-16=9 (1) 9-8=1 (1) 1-4 не надо (0) 1-2 не надо (0) 1-1=0 (1) Теперь считает единицы и нули сверху вниз 1011001
600 берём 512 это 2^9 степени 600-512=88(1) 88-256 не надо (0) 88-128 не надо (0) 88-64= 24 (1) 24-32 не надо (0) 24-16= 8 (1) 8-8=0(1) 0-4 не надо (0) 0-2 не надо (0) 0-1 не надо (0) опять считаем 1001011000
2010 берём 1024 это 2^10 степени 2010-1024=986(1) 986-512= 474(1) 474-256=218(1) 218-128=90(1) 90-64=26(1) 26-32 не надо (0) 26-16=10(1) 10-8=2(1) 2-4 не надо (0) 2-2=0 (1) 0-1 не надо (0) считаем 11111011010
считал в основном устно, мог ошибиться. Но главное, чтоб принцип был понятен
(X v Z) & (X v not Z) & (not Y v Z) =
(Xv Z) & (Xv not Z) = X
X & (not Y v Z)
(X v Z) & (X v not Z) & (not Y v Z) = X & (not Yv