R Program to find modulus of two numbers

Program

a <- readline(prompt = "Enter first number:")
a <- as.integer(a)
b <- readline(prompt = "Enter second number:")
b <- as.integer(b)
div = a / b
print(paste("Division of two numbers is: ", div))

Output 1

> a <- readline(prompt = "Enter first number:")
Enter first number:181
> a <- as.integer(a)
> b <- readline(prompt = "Enter second number:")
Enter second number:3
> b <- as.integer(b)
> div = a / b
> print(paste("Division of two numbers is: ", div))
[1] "Division of two numbers is:  60.3333333333333"

Output 2

> a <- readline(prompt = "Enter first number:")
Enter first number:12
> a <- as.integer(a)
> b <- readline(prompt = "Enter second number:")
Enter second number:0
> b <- as.integer(b)
> div = a / b
> print(paste("Division of two numbers is: ", div))
[1] "Division of two numbers is:  Inf"