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

Question
=======

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

Einer Gruppe von `r n` Studenten werden `r k` Theaterkarten angeboten. Auf wie viele Arten können die  Karten  verteilt werden, wenn jeder Student `r if (without) "nur eine Karte" else "auch mehrere Karten"` bekommen kann?

```{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()`
