R Program to check a number is a strong number or not

---

In this program, You will learn how to check a number is a strong number or not in R.

---

Some list of strong numbers are: 1, 2, 145

Example: How to check a number is a strong number or not in R

{
    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:

Enter a number :145
[1] "This is a Strong Number : 145"