What's the shortest code to generate the below matrices in R?

My 1st post - Just started learning R and I am trying to generate the below matrices using the shortest code possible and can only think of the long/manual way. Any help would be appreciated.