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"

Xiith is created for educational, experimental, and schooling purpose. Examples on Xiith are made easier to make a better or basic understanding. Tutorials, testimonials, and examples are continuously checked to avoid delusion, but we cannot take complete responsibility of all programs on Xiith. When you are operating this site, you have to agree to read and accept our terms of use, cookie and privacy policy.Copyright © 2020 by Xiith. All Rights Reserved. About us.