# R Program to find the largest and smallest digit of a number

In this program, You will learn how to find the largest and smallest digit of a number in R.

```
Number :4567
Largest is: 7
Smallest is = 4
```

## Example: How to find the largest and smallest digit of a number in R

```
{
n = as.integer(readline(prompt = "Enter a number :"))
sm = 9
largest = 0
while (n > 0) {
r = n %% 10
if (sm > r) {
sm = r
}
if (largest < r) {
largest = r
}
n = n %/% 10
}
print(paste("Smallest digit is :", sm))
print(paste("Largest digit is :", largest))
}
```

#### Output:

```
Enter a number :43162
[1] "Smallest digit is : 1"
[1] "Largest digit is : 6"
```