i)
m=2; k=10/1.8;
IVPforx={m x''[t]+k x[t]==0, x[0]==1, x'[0]==4}
ii)
position=DSolve[IVPforx, x[t], t]
iii)
amplitude=Sqrt[1^2 + 2.4^2]
period=N[2 Pi/Sqrt[k/m]]
frequency=1/period
iv)
N[(x[t]/.position)[[1]]/.t->10]