In[]:=
City="Praha";Zero=Quantity[0,"m/s^2"];Lat=Interpreter["City"][City][EntityProperty["City","Latitude"]];AccelerationScalar=FormulaData[{"CentripetalAcceleration","AngularVelocity"},{"r"UnitConvert[Quantity[Cos[Lat],"NominalEarthEquatorialRadius"]],"ω"Quantity[2*Pi,"Radians"/"Days"]}];AccelerationScalar=AccelerationScalar[[2]];CentrifugalAcceleration=-RotationMatrix[Lat,{0,1,0}].{AccelerationScalar,Zero,Zero};GravityData=WolframAlpha["acceleration of gravity in "<>City,{{"GravitationalFieldStrength",1},"ComputableData"}];Components={"down","up","west","east","south","north"};Components=#<>" component"&/@Components;Components=Function[c,Select[GravityData,#[[1]]==c&,1]]/@Components;Components=If[#=={},Zero,#[[1]][[2]]]&/@Components;GravitationalAcceleration={#[[1]]-#[[2]],#[[3]]-#[[4]],#[[5]]-#[[6]]}&[Components];GravityOfEarth=GravitationalAcceleration+CentrifugalAcceleration;Norm[GravityOfEarth]
Out[]=