In this program, You will learn how to check a number is a perfect number or not in R.
Example: How to check a number is a perfect number or not in R
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | { n <- as.integer(readline(prompt = "Enter a number :")) i = 1 s = 0 while (i < n) { if (n %% i == 0) { s = s + i } i = i + 1 } if (s == n) { print(paste("The number is perfect :", n)) } else{ print(paste("The number is not perfect :", n)) } } |
A perfect number is a positive integer that is equal to the sum of its positive divisors, excluding itself. For example, 6 is a perfect number because its divisors are 1, 2, and 3, and 1 + 2 + 3 = 6.
The code first reads in a value for n from the user and stores it as an integer. It then initializes two variables, i and s, to 1 and 0, respectively.
The code then enters a while loop which continues to execute as long as i is less than n. Inside the loop, the code uses the modulo operator (%%) to check if i is a divisor of n. If it is, the code adds i to s. The loop then increments i by 1 and the process is repeated.
After the while loop has finished executing, the code uses an if statement to check if the sum of the divisors of n (stored in s) is equal to n. If it is, the code prints a message saying that n is a perfect number. If s is not equal to n, the code prints a message saying that n is not a perfect number.
The output of this program would depend on the value of n that is entered by the user. Here is an example of what the output might look like:
1 2 3 4 | Enter a number :6 [1] "The number is perfect : 6" |
