L7 - 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 "exercicio1"

Var

                vet: vetor [1..1000] de inteiro

                x, n, i: inteiro

Inicio

                Escreva("Informe o valor de n: ")

                leia(n)

                x <- 1

                Para i de 1 ate n faca

                                Se ( ( i MOD 2 ) <> 0 ) entao

                                                vet[x] <- i*i

                                               x <- x + 1

                                Fimse

                Fimpara

Fimalgoritmo