Untitled

Retorna os 16 primeiros numeros de Fibonacci.
mail@pastecode.io avatar
unknown
plain_text
3 years ago
194 B
3
Indexable
Never
var
v, seg_a, seg_b: inteiro
inicio
v <-0
seg_a <- 1
seg_b <- 1
Para v :=1 ate 8 faca
    Escreva(seg_a,",",seg_b,",")
    seg_a <- seg_a + seg_b
    seg_b <- seg_a + seg_b

FimPara