You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
30 lines
723 B
R
30 lines
723 B
R
Compute LCM in R
|
|
# Program to find the L.C.M. of two input number
|
|
lcm <- function(x, y) {
|
|
# choose the greater number
|
|
if(x > y) {
|
|
greater = x
|
|
} else {
|
|
greater = y
|
|
}
|
|
|
|
while(TRUE) {
|
|
if((greater %% x == 0) && (greater %% y == 0)) {
|
|
lcm = greater
|
|
break
|
|
}
|
|
greater = greater + 1
|
|
}
|
|
return(lcm)
|
|
}
|
|
|
|
# take input from the user
|
|
num1 = as.integer(readline(prompt = "Enter first number: "))
|
|
num2 = as.integer(readline(prompt = "Enter second number: "))
|
|
|
|
print(paste("The L.C.M. of", num1,"and", num2,"is", lcm(num1, num2)))
|
|
Output
|
|
|
|
Enter first number: 24
|
|
Enter second number: 25
|
|
[1] "The L.C.M. of 24 and 25 is 600" |