```{r, echo=FALSE}
library('exams')
include_supplement('kombination.num', recursive=TRUE)
library("exams.forge")
instruction <- NULL
k <- sample(2:6, 1)
n <- sample(10:26, 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}
```

Bei der Beurteilung der Klangqualität von `r n` Lautsprecher-Boxen ist in der Weise zu verfahren, dass die Tester jeweils `r k` Boxen durch aufeinander folgendes Anhören miteinander vergleichen.
`r if(without) "Um die Effizienz der Tester zu erhöhen, ist es ausgeschlossen das eine Box mehrfach in einem Hörvergleich auftaucht." else "Um die Objektivität der Tester zu überprüfen, kann auch jede Box mehrfach bei einem Hörvergleich gehört werden."`
Wie viele Hörvergleiche könnten durchgeführt werden, wenn es auf die Reihenfolge, in der Boxen angehört werden, nicht ankommt?

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