```{r, echo=FALSE}
library('exams')
include_supplement('kombination.num', recursive=TRUE)
library("exams.forge")
instruction <- NULL
k <- sample(3:6, 1)
n <- sample(10:30, 1)
type    <- if(runif(1)>0.5) "K" else "V"
without <- TRUE
sc      <- num_result(if (type=="K") combination(n, k) else variation(n, k), digits=0)
```

Question
=======

```{r, error=TRUE, child=instruction}
```

Bei einem Lottospiel werden `r k` Kugeln aus `r n` Kugeln, nummeriert von 1 bis `r n`, gezogen.  Wie viele Elementarereignisse gibt es, wenn die Anordnung der Kugeln `r if (type=="K") "keine" else "eine"` Rolle spielt und nicht zurückgelegt wird?

```{r, child="kombination.num"}
```

Meta-information
================
extype: num
exsolution: `r sc$fx[1]`
extol: `r sc$tolerance`
exname: `r if(exists("story")) story else knitr::current_input()`
