How I can calculate in R expected value and variance of X and how do I get the probability?

Question

In a survey I collected the following data comparing people who prefer to buy coffee or tea: 75% coffee 25% tea I am assuming that 75% of all people prefer coffee.

On