ListPlot[Table[{n, ((100-10)/100)^Ceiling[n/2] * ((100+10)/100)^Floor[n/2]}, {n, 0, 200}]]