Question

Escreva um programa em VisualG ou Portugol para imprimir os números de 1 a 10 utilizando uma estrutura Repita/Até.

Answer 1

Resposta:

Var

x: inteiro

Inicio

x <- 1

repita

     escreval(x)

     x <- x + 1

ate (x > 10)

Fimalgoritmo

Espero ter ajudado!