certo ate agr

algoritmo "semnome"
// Função :
// Autor :
// Data : 28/03/2017
// Seção de Declarações
var
numero:inteiro
tentativa1:inteiro

li, ls, tentativas, palpite: inteiro
resposta: caracter

inicio
li <- 0
ls <- 1024
tentativas <- 1
repita
palpite <- (ls - li)\2 + li
escreva("Seu numero é maior, menor ou igual a ", palpite, "? ")
leia(resposta)
se resposta = "igual" entao
escreval("ACERTEI!!")
senao
se resposta = "maior" entao
li <- palpite
senao
se resposta = "menor" entao
ls <- palpite
senao
escreval("Reposta incorreta.")
escreval("Escreva uma das palavras: maior, menor ou igual")
fimse
fimse

numero<-randi(1024)

escreva("Digite seu palpite:")
leia(tentativa1)

se (tentativa1=numero) entao
escreval("VOCE ACERTOU!!!")

fimse

se (numero>tentativa1) entao
escreval("maior")

fimse

se (numero<tentativa1) entao
escreval("menor")

fimse

tentativas <- tentativas + 1
fimse
ate ((tentativas > 10) OU (resposta = "igual"))
se tentativas > 10 entao
escreval("Infelizmente não consegui acertar ...")
senao
escreval("Tentativas: ", tentativas)
fimse