#x <- 2
#y<- 5

#x+y
#print(x+y)
#print(x^23)
#oi <- "OI"
#print(oi)
#print("Olá mundo!")




z<- 45
z2<-z^2

print(paste0("O quadrado de Z é: ", z2))

#x <- readline("Digite o valor de X:")
#print(x)
#Y <- readline("Digite o valor de Y:")
#z<- readline("Digite o valor de Z:")
#print((x^y)/z)



#x <- as.numeric(readline("Digite o valor de X:"))
#print(x)
#Y <- as.numeric(readline("Digite o valor de Y:"))
#z<- as.numeric(readline("Digite o valor de Z:"))
#print((x^y)/z)

print(2/2)
print(3/2)
print(5%%3)
print(5/3)
print(7%/%3)


#n<-10
#for (i in (1:n)){           #i <- 1, print(i) ... ; i <- 2, print(i) ....; i<- 3 ... ; i<- 10
#  print(i)
#  print(i+2)
#}
#print(i)

#print(11)

x <- 3
y <- 6 

print(x == y)
print(3 == 3)
print(3==2)
#print(3=2)
print(3<2)
print(3>2)
print(3>=2)
print(3>3)
print(3>=3)
print(3<=2)


#x<- 0
##while (x < 4){
 # print(x)
#  x <- x+1
#}


x <- 0



#while (x < 4){
#  x <- as.numeric(readline("Digite x: "))
 # print(x)
#}

#x <- -1
#while (x < 4){
#  x <- as.numeric(readline("Digite x: ")) #nada acontece
#  print(x)
#}



x <- 0

if (x<0){
  print("oi")
} else{
  print("tchau")
}




x <- 0

if (x<0){
  print("oi")
} else if (x>0){
  print("tchau")
} else{
  print("nada")
}
  


#while (3<4){
 # x<- readline("kjnfkasj")    #para sair de loopings infinitos, aperte ESC
#}


x<- 0.2
print(paste0(x*100,"%"))


x <- 2
if (0<x){
  if (x<10){
    print("alo")
  }
} 


x <- -1
if (x<0){
  
} else if (x<10){
  print("alo")
}