cambia <- function(m)
{s <- NULL; a <- 0; b <-0; c <- 0;
if(m==500) {a <- 2; b <- 1; c <- 0}
else
{
if (m==200) {a <- 0; b <- 2; c <- 0}
else
{if (m==100) {a <- 0; b <- 0; c <- 2} else {s <- m}
}}
i <- 0; while(i < a) {s <- paste(s,'200'); i <- i+1};
i <- 0; while(i < b) {s <- paste(s,'100'); i <- i+1};
i <- 0; while(i < c) {s <- paste(s,'50'); i <- i+1};
noquote(s)}
# Esempi:
cambia(500); cambia(200)