desenvolver esse algoritmo

[Wagner sz 1]

Oi galera, queria ajuda para desenvolver esse algoritmo.Não sei qual comando usar ;s

 

--> Escrever um programa que leia uma quantidade não determinada de vezes um número

inteiro. Para cada número lido calcular e mostrar seu quadrado. Parar de informar quando

o número lido for igual a zero.

 

O que eu fiz:

 

algoritmo "8"

var

n,qua: inteiro

inicio

leia (n)

enquanto (n > 0) faca

qua <- (n * 2)

escreval (qua)

fimenquanto

 

fimalgoritmo

[Dzago 2]

Wagner,

Seu algoritmo tem alguns problemas:

 

algoritmo "8"
var
n,qua: inteiro
inicio
leia (n)
enquanto (n > 0) faca //desse jeito os n negativos não entram, entao é melhor fazer n<>0 (enquanto n diferente de 0)
qua <- (n * 2) //com isso vocês está multiplicando o n por 2, faça n*n
escreval (qua)
leia (n) //tem que colocar para ler a variavel novamente
fimenquanto

fimalgoritmo