NumberLinePlot[{Interval[{0.25, 0.75}], Interval[{0, 1}]}]

Solve[Pi (r^2)== 0.5, r]

circle = RegionPlot[{(x^2) + (y^2)≤ (0.3989422804014327^2), x==0.5}, {x,-0.5,0.5},{y,-0.5,0.5}]

square = RegionPlot[x ≤0.5 && x ≥-0.5 && y<=0.5 && y>= -0.5, {x,-0.5,0.5},{y,-0.5,0.5}, PlotStyle->Lighter[Orange,.9]]

square2 = RegionPlot[x ≤((Sqrt[0.5])/2) && x ≥((-(Sqrt[0.5]))/2) && y≤((Sqrt[0.5])/2) && y>= ((-(Sqrt[0.5]))/2), {x,-0.5,0.5},{y,-0.5,0.5}, PlotStyle->Lighter[Green,.9]]

Show[{square, circle}]
Show[{square, square2}]
Show[{square, square2, circle}]

Solve[(4/3)Pi (r^3)== 0.5, r]

ContourPlot3D[x ≤((0.5^(1/3))/2) && x ≥-((0.5^(1/3))/2) && y≤((0.5^(1/3))/2) && y≥ -((0.5^(1/3))/2) && z≤ ((0.5^(1/3))/2) && z≥-((0.5^(1/3))/2),{x,-0.5,0.5},{y,-0.5,0.5},{z,-0.5,0.5}]

sphere=ContourPlot3D[(x^2)+(y^2)+(z^2)== (0.49237251092134826^2),{x,-0.5,0.5},{y,-0.5,0.5},{z,-0.5,0.5}]

cube1 =Graphics3D[{Yellow,Opacity[0.2],Cuboid[{-0.5, -0.5, -0.5},{0.5, 0.5, 0.5}], }]
cube2 = Graphics3D[{Blue,Opacity [0.3],Cuboid[{-(((1/2)^(1/3))/2), -(((1/2)^(1/3))/2), -(((1/2)^(1/3))/2)},{(((1/2)^(1/3))/2), (((1/2)^(1/3))/2), (((1/2)^(1/3))/2)}]}]

Show[{cube1, sphere}]

Show[{cube1, cube2}]

Show[cube1, cube2, sphere]

Plot[0.5^(1/x), {x, 1, 50}, PlotRange -> {{0,50},{0, 1}}]

Plot[CDF[NormalDistribution[0,1], x], {x, -6, 6}]

Solve[CDF[((NormalDistribution[0,1])^2), x]==0.9772498680518208, x] // N

CDF[NormalDistribution[0,1], 2] // N

Needs["Plotly`"]