num<-as.numeric(readline("Ingrese su número: "))

## Ingrese su número:

#ingrese un numero
num <- 5
c <- (sum(num/1:num==num%/%1:num)) 
c==2

## [1] TRUE