# 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"
```