Var
x, z, i : inteiro
Inicio
escreva ("Informe o valor da tabuada: ")
leia (i)
enquanto (i > 0 ) faca
se (i <=10) entao
para x <- 1 ate 10 faca
z <- i * x
escreval (i, " x ",x," = ",z)
fimpara
senao
escreval ("Tabuada deve ser de 1 a 10")
fimse
escreva ("Informe o valor da tabuada: ")
fimenquanto
Fimalgoritmo
0 comentários: