Найти сумму всех кратных 3 или 5 ниже 1000
n <- seq(1:999) multiples3 <- n[n %% 3 == 0] multiples5 <- n[n %% 5 == 0] sum <- sum(multiples3) + sum(multiples5) - 15
Почему это дает неправильный ответ? Что пошло не так?