if(<cond>){ <com1> } <com2>
x <- as.numeric(readline("digite x")) valorAbs <- x if(x < 0){ valorAbs <- x } print(paste0("O valor absoluto de x= ", valorAbs))
if(<cond>){ <com1> }else{ <com2> } <com3>
# teste de positividade (o eh positivo) x <- as.numeric(readline("digite x")) if(x >= 0){ print("x eh positivo") }else{ print("x eh negativo")
if(<cond1>){ <com1> }else if(<cond2>){ <com2> }else{ <com3> } <com4>
nota <- as.numeric(readline("digite nota")) if(nota >= 5){ print("aprovado") }else if(nota >= 3){ print("recuperacao") }else{ print("reprovado") }
if(<cond1>){ <com1> }else if(<cond2>){ <com2> <com3>
if(<cond1>){ <com1> }else if(<cond2>){ <com2> }else if(<cond3>){ <com3> }else{ <com4> } <com5>
if(<cond1>){ <com1> }else if(<cond2>){ <com2> }else if(<cond3>){ <com3> } <com4>
n <- as.numeric(readline("digite n")) if(n %% 3==0){ print("n eh multipla de 3") }else if(n %% 3==1){ print("o resto eh 1") }else if(n %% 3==2){ print("o resto eh 2") }
n <- as.numeric(readline("digite n")) if(n %% 3==0){ print("n eh multipla de 3") }else if(n %% 3==1){ print("o resto eh 1") }else{ print("o resto eh 2") }
a <- as.numeric(readline("digite a")) b <- as.numeric(readline("digite b")) if(a==b){ print("a=b") }else if(a>b){ print("a>b") }else{ print("a}