Question 1

(5*4)^(4*5)-56
## [1] 1.048576e+26
23-1*(8-12)
## [1] 27
56/8*(3+4)
## [1] 49
45-5*8+(8+9)
## [1] 22

Qus 2

a<- c(2,5,6,7)
b<-c(1,0,9,8)
c<-c(6,5,8,3)
# Print the vectors
  print(a)
## [1] 2 5 6 7
  print(b)
## [1] 1 0 9 8
  print(c)
## [1] 6 5 8 3

Ques 3

Raut <- rbind(a, b, c)
  print(Raut)
##   [,1] [,2] [,3] [,4]
## a    2    5    6    7
## b    1    0    9    8
## c    6    5    8    3
# Rename columns and rows
colnames(Raut) <- c("Mon", "Tue", "Wed", "Thu")
rownames(Raut) <- c("Present", "Absent", "On leave")

# Print the matrix
print("Raut:")
## [1] "Raut:"
print(Raut)
##          Mon Tue Wed Thu
## Present    2   5   6   7
## Absent     1   0   9   8
## On leave   6   5   8   3
# Calculate row sums and column sums
row_sums <- rowSums(Raut)
col_sums <- colSums(Raut)

# Print row sums and column sums
print("Row Sums:")
## [1] "Row Sums:"
print(row_sums)
##  Present   Absent On leave 
##       20       18       22
print("Column Sums:")
## [1] "Column Sums:"
print(col_sums)
## Mon Tue Wed Thu 
##   9  10  23  18