The Questions

  1. There are 540 identical plastic chips numbered 1 through 540 in a box. What is the probability of reaching into the box and randomly drawing the chip numbered 505? Express your answer as a fraction or a decimal number rounded to four decimal places.
print(paste("And, the answer is...", round(1/540,4)))
## [1] "And, the answer is... 0.0019"
  1. Write out the sample space for the given experiment. Separate your answers using commas. When deciding what you want to put into a salad for dinner at a restaurant, you will choose one of the following extra toppings: asparagus, cheese. Also, you will add one of following meats: eggs, turkey. Lastly, you will decide on one of the following dressings: French, vinaigrette. (Note: Use the following letters to indicate each choice: A for asparagus, C for cheese, E for eggs, T for turkey, F for French, and V for vinaigrette.)
Toppings<-c('A','C')
Meats<-c('E','T')
Dressings<-c('F','V')

for (t in Toppings){
    for (m in Meats){
      for (d in Dressings){
        print(paste0(t,m,d))
      }
    }
}
## [1] "AEF"
## [1] "AEV"
## [1] "ATF"
## [1] "ATV"
## [1] "CEF"
## [1] "CEV"
## [1] "CTF"
## [1] "CTV"
  1. A card is drawn from a standard deck of 52 playing cards. What is the probability that the card will be a heart and not a face card? Write your answer as a fraction or a decimal number rounded to four decimal places. Nbr of Cards: 52 Nbr of Hearts: 13 Nbr of non-FC Hearts: 10
print(paste("VEGASSSSSSSS...",round(10/52,4)))
## [1] "VEGASSSSSSSS... 0.1923"
  1. A standard pair of six-sided dice is rolled. What is the probability of rolling a sum less than 6? Write your answer as a fraction or a decimal number rounded to four decimal places.
Die1<-c(1:6)
Die2<-c(1:6)
All_Roll<-0
Low_Roll<-0


for (D1 in Die1){
    for (D2 in Die2){
       if(D1 + D2 < 6){
         Low_Roll <- Low_Roll + 1
       }
    All_Roll <- All_Roll + 1
       }
}
print(paste("Your chances of a low roll are ",round(Low_Roll/All_Roll,4)))
## [1] "Your chances of a low roll are  0.2778"