respostas

Possíveis Soluções

aprenda poli :l :n :c
pf :l pd 360/:n
se :c=:n [pare]
poli :l :n :c+1
fim

aprenda poli2 :l :n :k :c2 :lis
poli :l :n 1 espere 50
atr "p :l*:n
atr "lis jf :p :lis
se :c2=:k [esc [a seqüência do comprimento dos lados é:] mos :lis pare]
poli2 :l :n+1 :k :c2+1 :lis
fim

aprenda nutri :l :k
pd 30
repita 3[pf :l arco 360 2 pd 360/3] espere 50
pf 2*:l arco 360 2 pd 360/3 espere 50
nutri2 :l :k 1
fim

aprenda nutri2 :l :k :c
repita (:c+1) [pf :l arco 360 2] espere 50
pd 360/3 pf (:c+1)*:l pd 360/3
se :c = (:k-1) [pare]
pf (:c+2)*:l arco 360 2 pd 360/3 espere 50
nutri2 :l :k :c+1
fim

aprenda nuq :l :k :c
pf :c*:l arco 360 2 pd 90
repita :c [pf :l arco 360 2] pd 90 repita :c [pf :l arco 360 2 ] pd 90 pf :c*:l pd 90
se :c=:k [pare]
nuq :l :k :c+1
fim