dias <- 7
horas <- 24
minutos <- 60
seg <- 60
total_seg_semana <- dias * horas * minutos * seg
print(total_seg_semana)[1] 604800
dias <- 7
horas <- 24
minutos <- 60
seg <- 60
total_seg_semana <- dias * horas * minutos * seg
print(total_seg_semana)[1] 604800
raiz_quadrada <- sqrt(2025)
print(raiz_quadrada)[1] 45
elevando <- 7^4
print(elevando)[1] 2401