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)) } |
Output:
1 2 3 4 |
Enter a number :145 [1] "This is a Strong Number : 145" |