h <- scan(n=1)


for(H in 1:h){

  for(i in 1: h){

    for(J in 1: h){

      if (i >= J)

        cat("*")

      if(i>3){

        for(Y in 1:h %/% 3 * 3)

          cat(" ")

      }

    } 

    cat("\n")

  }


이러는데도 안되는데 도대체 왜 안되는건가요

공백 3 저렇게 하는거 아닌가요?