$MinPrecision  =  20

For[i = 0;  sum = 0,  i < 1000,  i++,  
        sum  +=  1 / (i  +  1)^4; 
        If[i  ==  999, Print[sum // N]]]^\[Placeholder]

Pi^4/90//N