Использование ifelse для суммирования чисел - PullRequest
0 голосов
/ 04 апреля 2020

Я новичок в коде, поэтому мне трудно заканчивать задания. я хочу получить помощь ..

Используя команды ifelse и seq в R, вычислите сумму чисел, которые равномерно разделены на 6 между 1 и 1000. (Ответ не уникален, но ваш ответ должен правильно использовать ifelse и seq.)

Рассчитать сумму чисел, которые равномерно делятся на 3 между 1 и 1000. для l oop. Покажите свою кодировку и сумму. (Ответ не является уникальным. Любой разумный для l oop получит полные очки.)

Я знаю, что я должен использовать seq (6,1000,6) и seq (3, 1000,3) для каждого, но я не могу получить ответ пожалуйста помогите

1 Ответ

0 голосов
/ 04 апреля 2020

Для вопроса 1 вы можете создать последовательность от 1 до 1000, а затем суммировать числа, если она делится на 6

num <- seq(1,1000)
total <- sum(ifelse(num %% 6 == 0, num, 0))
total
#[1] 83166

Для вопроса 2 вы можете сделать:

total <- 0
for (i in num) {
  if(i %% 3 == 0)
     total <- total + i
}

total
#[1] 166833

Есть и другие способы сделать это.

Для вопроса 1 вы можете сделать:

sum(num[num %% 6 == 0])

ИЛИ

 sum(seq(6, 1000, 6))

И аналогично, для вопроса 2:

sum(num[num %% 3 == 0])

ИЛИ

sum(seq(3, 1000, 3))
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...