C <- function() runif(1); R <- function(n) noquote(sprintf('%x',n))
print("Cerca la rappr. dec. del n. in base 16 N. Controlla con 0xN. Ripeti copiando l'ultima riga.")
n <- ifelse(C()<1/2,floor(C()*1e4+1),floor(C()*1e3+1)); cat("N =",R(n),'\n')