Algoritmo em visualg fibonacci

Algoritmo em visualg fibonacci

algoritmo  " Fibonacci "
var
AN,AT,PR,CO:INTEIRO
inicio
AN <- 1
AT <- 1
CO <- 1
ESCREVA("1  1 ")
enquanto CO < 15 faca
   PR <- AN+AT
   ESCREVA (PR," ")
   AN <- AT
   AT <- PR
   CO <- CO+1
fimenquanto
fimalgoritmo

Comentários