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

```{r,  echo = FALSE, results = "hide"}
include_supplement('flugpassagier.num', recursive=TRUE)
library("exams")
library("exams.forge")
instruction <- NULL
library("extraDistr")
mean    <- sample(60:90, 1)
sd      <- sample(2:6, 1)
border  <- sample((mean-3*sd):(mean+3*sd), 1)
zborder <- (border-mean)/sd
d       <- distribution("norm", mean=mean, sd=sd)
ptype   <- "point"
lsg     <- 0
sc      <- num_result(lsg, 4)
```

Question
=======

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

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

Eine Fluggesellschaft hat festgestellt, dass die Zufallsvariable $X:$ "Körpergewicht eines Fluggastes" normalverteilt ist mit
$\mu=E(X)=`r mean`$ kg und $\sigma^2=Var(X)=`r sd^2`$ $kg^2$. Bestimmen Sie die Wahrscheinlichkeit dafür, dass ein Fluggast **genau** `r border` kg wiegt.

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

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