Giải bài Cái ô - Đề thi Tin học trẻ bảng A - Đà Nẵng 2017

Mời các bạn tham khảo

---

to gapkhuc

      fd 100

      rt 30

      fd 100

      rt 90

      fd 100

      bk 100

      lt 90

      bk 100

      lt 30

      bk 100

end

to caio

      repeat 12 [gapkhuc rt 30]

end

to mau :i

      pu rt 10 fd 100

      setfc :i

      fill

      bk 100 lt 10 pd

end

to tomau

      make "i 0

      repeat 12 [

            mau :i

            rt 30

            make "i :i+1

           

      ]

     

end