|
cat("insert number ")
|
|
a <- scan(nmax=1, quiet=TRUE)
|
|
cat("insert number ")
|
|
b <- scan(nmax=1, quiet=TRUE)
|
|
print(paste('a+b=', a+b))
|
|
print(paste('a-b=', a-b))
|
|
print(paste('a*b=', a*b))
|
|
print(paste('a%/%b=', a%/%b))
|
|
print(paste('a%%b=', a%%b))
|
|
print(paste('a^b=', a^b))
|