tehtava4ab

# 4. (a) Määritä vektori (7,14,21, . . . , 686, 693, 700) eli vektori, jossa on luvun 7 monikerrat lukuun 700 asti.
# Tallenna määrittämäsi vektori muuttujaan v.

v <- seq(7, 700, by=7)

# (b) Valitse vektorista v ne alkiot, jotka ovat jaollisia sekä yhdeksällä että kolmella,
# ja tallenna niiden mediaani muuttujaan m. Vihje: selvitä mitä operaattori %%
#   tekee ja käytä sitä. Mediaanin voi laskea funktiolla median.

m <- v[v %% 9 == 0]
m <- median(m)