Чтобы квадрат вписался в круг, его диагональ должна быть равна диаметру круга. Если трактовать "уместиться" как "пролезть", то диагональ должна быть меньше диаметра.. Формулы площадей квадрата 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 Квадрат не умещается в круге
//Школьный вариант с уродливым "пузырьком" //Pascal ABC.NET 3.1 сборка 1256
Const n=10; m=20; z=30;
Var ar1:array[1..n] of integer; ar2:array[1..m] of integer; ar3:array[1..z] of integer; i,k,j:integer; b:boolean;
begin randomize; k:=-1; b:=false; for i:=1 to n do ar1[i]:=random(20); for i:=1 to n-1 do for j:=i+1 to n do if ar1[i]>ar1[j] then swap(ar1[i],ar1[j]); writeln('Array 1:'); for i:=1 to n do write(ar1[i]:4); writeln; for i:=1 to m do ar2[i]:=random(20); for i:=1 to m-1 do for j:=i+1 to m do if ar2[i]>ar2[j] then swap(ar2[i],ar2[j]); writeln('Array 2:'); for i:=1 to m do write(ar2[i]:4); writeln; for i:=1 to z do ar3[i]:=random(20); for i:=1 to z-1 do for j:=i+1 to z do if ar3[i]>ar3[j] then swap(ar3[i],ar3[j]); writeln('Array 3:'); for i:=1 to z do write(ar3[i]:4); for i:=1 to n do begin k:=-1; for j:=1 to m do if ar1[i]=ar2[j] then begin k:=ar1[i]; break; end; if k=-1 then continue; for j:=1 to z do if k=ar3[j] then begin b:=true; break; end; if b=true then break; end; writeln; writeln('Result:'); if b=false then writeln('Нет') else writeln(k); end.
