f<-function(x)
{
  x+4
}

#Exercitiul 1
f1<-function(x)
{
  x = x^2
  if(x<10)
  {
    return(0)
  }
  if(x<100)
  {
    return(x %/%10)
  }
  if(x<1000)
  {
    return(x %/%10)
  }
  return((x%%1000) %/%10)
}
Metoda_patratului<-function(x,nr)
{
  ciclu = c(x)
  numar_actual = x
  ok = TRUE
  i=1
  while(ok == TRUE && i <nr)
  {
    y = f1(numar_actual)
    for(i in length(ciclu))
    {
      if(isTRUE(ciclu[i]==y)) {
        ok = FALSE
        break
      }
    }
    if(isTRUE(ok == TRUE))
    {
      ciclu = append(ciclu,y)
      numar_actual = y
      i=i+1
    }
  }
  return(ciclu)
}