```{r echo=FALSE}
p <- sample (c(20,30,40,50,60), size=1)
v <- sample (c(150,230,360), size=1)
i <- sample (p/v)
r <- round(v/i, 2)
```

4. Calcula a resistencia dunha lámpada de `r p` W que se conecta a unha diferencia de potencial de `r v` V
\newline
\newline
Solución: R= `r r` $\Omega$
\newline