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

```{r,  echo = FALSE, results = "hide"}
library("exams")
include_supplement('papagei.num', recursive=TRUE)
library("exams.forge")
instruction <- NULL
library("extraDistr")
border  <- c(NA, NA)
repeat{
  size <- sample(5:32, 1)
  prob <- sample(seq(0.05, 0.5, by=0.05), 1)
  border  <- range(sample(c(0, 2:(size-1)), 2))
  d       <- distribution("binom", size=size, prob=prob)
  ptype   <- "interval"
  sc      <- num_result(cdf(d, border[2])-cdf(d, border[1]-1), 4)
  if (!binom2norm(size, prob) && (sc$x[1]>1e-3)) break
}
```

Question
========

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

Stack Overflow ist eine Internetplattform für Softwareentwickler, die es Nutzern ermöglicht, Fragen zu stellen und zu beantworten.  Die Antworten können falsch, teilweise richtig oder vollständig richtig sein. Sie sind mit einer  Wahrscheinlichkeit von `r 100*(1-prob)`% teilweise richtig oder falsch. Es sei $X$: "Die Anzahl der vollständig richtigen Antworten". Wenn es auf eine
Frage `r size` Antworten gibt, wie groß ist die Wahrscheinlichkeit, dass es mindestens `r border[1]` und maximal `r border[2]` vollständig richtige Antworten gibt?

```{r, child='papagei.num'}
```

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