r语言for循环1加到100的和