Question

leia um numero qualquer, divida-o por dois,sucessivamente,até que o resultado seja menor que 1.mostre o resultado da ultima divisao .no Visualg , (obs: utilize o repita)

Answer 1

Algoritmo "..."

Var

  N: Real

Inicio

Escreval("Informe um número:")
Leia(N)
  
      Repita
   
         N <- ((N) / (2))
  
         Escreval("")
   
         Escreval(N)
  
       Ate ((N) < (1))

FimAlgoritmo