<!--- 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   <- "greater"
  sc      <- num_result(1-cdf(d, border-1), 4)
  if (!binom2norm(size, prob) && (sc$x[1]>1e-3)) break
}
```

Question
========

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

Aus der Literatur weiß man, dass ein Papagei bei genügendem Training mit `r 100*prob`% Wahrscheinlichkeit das melodische Singen erlernen kann. Es sei $X$: "Die Anzahl der Papageien, die melodisch singen können nach dem Training". Wenn der Mozartliebhaber Wolfgang A. `r size` Papageien besitzt, wie groß ist die Wahrscheinlichkeit, dass `r border` oder mehr  Papageien melodisch singen können?

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

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