<!--- Filename should be: topic_story_anwserformat.Rmd --->

```{r,  echo = FALSE, results = "hide"}
include_supplement('diskrete_gleich.num', recursive=TRUE)
library("exams")
library("exams.forge")
instruction <- NULL
library("extraDistr")
d      <- distribution("dunif", min=0, max=36)
border <- range(sample(0:26, size=2))
ptype  <- "interval"
lsg    <- prob(d, border[1]-1, border[2])
sc     <- num_result(lsg, 4)
```

Question
=======

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

<!--- Exercise text is in story file --->

Bei einem Roulette Spiel gibt es die Zahlen 0 bis 36, die mit gleicher Wahrscheinlichkeit kommen.
Wie groß ist die Wahrscheinlichkeit, dass Sie eine Zahl zwischen `r min(border)` und `r max(border)`
(einschließlich der Grenzen) bekommen?

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

Meta-information
================
extype: num
exsolution: `r round2(lsg,4)`
extol: 0.001
exname: `r if(exists("story")) story else knitr::current_input()`
