<!--- 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  <- sample(c(0, 2:(size-1)), 1)
  d       <- distribution("binom", size=size, prob=prob)
  ptype   <- "point"
  sc      <- num_result(pmdf(d, border), 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 **genau** `r border` Antworten vollständig richtig sind?

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

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