R=5;
r=R/Sqrt[2];
ContourPlot3D[{x^2+y^2+z^2==R^2,z==Sqrt[x^2+y^2]},{x,-r,r},{y,-r,r},{z,0,2 r},RegionFunction->Function[{x,y,z},x^2+y^2<r^2]]