Дано натуральное число n вычислить в 3 типах цикла (for,while,repeat);s=1*2+2*3+3*4+...+n(n+1);

Предыдущий
вопрос Следующий
вопрос

n <- as.integer(readline(prompt="Введите натуральное число n: "))
s <- 0
for (i in 1:n) {
s <- s + i*(i+1)
}
cat("Значение выражения s =", s, "\n")

n <- as.integer(readline(prompt="Введите натуральное число n: "))
s <- 0
i <- 1
while (i <= n) {
s <- s + i*(i+1)
i <- i + 1
}
cat("Значение выражения s =", s, "\n")

n <- as.integer(readline(prompt="Введите натуральное число n: "))
s <- 0
i <- 1
repeat {
s <- s + i*(i+1)
i <- i + 1
if (i > n) {
break
}
}
cat("Значение выражения s =", s, "\n")