num<-as.numeric(readline("Ingrese un numero: "))

## Ingrese un numero:

## Ingrese un numero:
par<-num %% 2 == 0
impar<-num %% 2 == 1
cat("El numero que ingreso es par: ", par)

## El numero que ingreso es par:  NA

cat("El numero que ingreso es impar: ", impar)

## El numero que ingreso es impar:  NA