```{r, echo=FALSE}
include_supplement("hmittel2.num", recursive=TRUE)
# required variables:
#  harmon 
#  sc <- num_result(...)
#  sc2 <- num_result(...)
library("exams.forge")
instruction <- NULL
k <- sample(4:7, 1)
x <- sample(c(5, 10, 20), size=k, replace=TRUE)
g <- sample(5:15, length(x), replace=TRUE)
m <- cbind(x, g)
w <- sample(c(30, 35, 40, 45, 50, 55, 60), 1)
colnames(m) <- c("Geschwindigkeit (in km/h)", "Strecke (in km)")
rownames(m)  <- 1:length(x)
lsg    <- sum(g)/sum(g/x)
hxy <- html_matrix_sk (m, fmt=c("%.0f", "%.1f"), title="Tag")
sc     <- num_result (lsg, digits = 2, tolmult = 2)
sc2    <- num_result (w/sc$x, digits = 1, tolmult = 2)
harmon <- TRUE
```

Question
========

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

Für ein Querfeldeinrennen trainiert ein Student jeden Tag mit dem Fahrrad. 
Wie lang benötigt der Student für ein `r w` km-Querfeldeinrennen, wenn Sie die Durchschnittsgeschwindigkeit zugrunde legen?

```{r, echo=FALSE, results='asis'}
cat(toHTMLorLatex(hxy))
```

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

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