Exercício 5-1 Escreva um algoritmo que calcule e coloque em um vetor os números de 1 a n cuja raiz quadrada é um número inteiro ímpar. Por exemplo, 1, 9, 25, 49,...O valor de n deve ser lido, sendo que n ≤1000.

algoritmo "Raiz Quadrada"

var

 numero, divisaoComResto, i, k: inteiro

 vet: vetor[1..1000] de inteiro

inicio

 repita

   escreva("Digite um número entre 1-1000: ")

   leia (numero)

 ate ((numero <= 1000) e (numero > 0))

 k <- 1

 para i de 1 ate numero faca

   se (( i mod 2) = 1) entao

       divisaoComResto <- i*i

       vet[k] <-  divisaoComResto

       k <- k + 1

   fimse

 fimpara

 para i de 1 ate (k-1) faca

    escreval (vet[i])

 fimpara

 fimalgoritmo