In this program, You will learn how to check a number is a strong number or not in R.
Example: How to check a number is a strong 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 21 22 23 24 25 26 27 28 |
{ n <- as.integer(readline(prompt = "Enter a number :")) num = n s = 0 while (n > 0) { r = n %% 10 f = 1 i = 1 while (i <= r) { f = f * i i = i + 1 } s = s + f n = as.integer(n / 10) } if (num == s) print(paste("This is a Strong Number :", num)) else print(paste("This is not a Strong Number :", num)) } |
This code determines whether a given number is a “strong number.” A strong number is a number in which the sum of the factorials of its digits is equal to the number itself. For example, 145 is a strong number because 1! + 4! + 5! = 145. Here is a brief explanation of how the code works:
The program reads in a number and stores it in the variable n.
The program initializes the variable s to 0. This variable will be used to store the sum of the factorials of the digits of n.
The program enters a while loop that continues as long as n is greater than 0.
Inside the loop, the program calculates the remainder of n divided by 10 and stores it in the variable r. This is done to extract the last digit of n.
The program initializes the variable f to 1 and the variable i to 1. f will be used to store the factorial of r, and i will be used as a counter in a loop to calculate the factorial.
The program enters a while loop that continues as long as i is less than or equal to r.
Inside the loop, the program calculates the factorial of r by multiplying f by i and storing the result back in f. The program then increments i by 1.
When the inner loop finishes, the program adds the factorial of r (stored in f) to the running total of the factorials of the digits (stored in s).
The program divides n by 10 and stores the result back in n. This is done to remove the last digit of n.
When the outer loop finishes, the program checks whether the sum of the factorials of the digits (stored in s) is equal to the original number. If it is, the program prints out a message saying that the number is a strong number. If it is not, the program prints out a message saying that the number is not a strong number.
The program ends.
|
1 2 3 4 |
Enter a number :145 [1] "This is a Strong Number : 145" |
