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