```{r data generation, echo = FALSE, results = "hide"}
SYM <- c(EUR = "€", USD = "$", GBP = "£")
CURR <- c(EUR = 1, USD = 1.3109, GBP = 0.8431)
ADIDAS <- 84.8492
nr <- sample(10:100, 1)
cu <- sample(names(CURR), 1)
x <- nr * ADIDAS * CURR[cu]
```
Question
========
On 2013-05-03 one Euro (`r SYM["EUR"]`) was buying `r CURR["USD"]` US Dollars (`r SYM["USD"]`) and
`r CURR["GBP"]` British Pounds (`r SYM["GBP"]`). At Frankfurter Börse around noon adidas AG was the
largest winner compared with the day before with a price of `r SYM["EUR"]` `r ADIDAS` per share.
If you buy `r nr` shares, how much are they worth in `r SYM[cu]`?
Solution
========
The worth in `r SYM[cu]` is the number of shares $\times$ stock price $\times$ exchange rate,
i.e., $`r nr` \times `r ADIDAS` \times `r CURR[cu]` \approx `r x`$.
Meta-information
================
extype: num
exsolution: `r fmt(x, digits = 3)`
exname: Currency exchange rates
extol: 0.01