将小值添加到非常大的数字似乎不会改变数字R

Question

当我在R中使用2到40的偶数整数时，在产品中添加小数字似乎不会改变数字。

所以，用for循环获取该值：

sum <- 1
for (i in 1:20){
j <- i*2
sum <- sum*j
}
> sum
[1] 2.551083e+24

然后，当我添加数字时，逻辑等价运算符告诉我数字不会改变，例如

> sum == sum + 1
[1] TRUE

> sum == sum + 1e3
[1] TRUE
> sum == sum + 1e8
[1] TRUE
> sum == sum + 1e9
[1] FALSE

为什么会这样？