Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
a) to vuong
REPEAT 4 [FD 40 RT 90]
REPEAT 4 [FD 80 RT 90]
end
to hinha
RT 45
REPEAT 4 [VUONG RT 360/4]
End
b) to tamgiac
repeat 3[fd 70 rt 360/3]
end
to hinhb
setpensize[8 8]
setpencolor 1
repeat 5 [tamgiac rt 360/5]
setpensize [2 2]
setpencolor 7
repeat 5 [tamgiac rt 360/5]
end
c) to bongtuyet
fd 100 bk 50
rt 30
fd 50 bk 50
lt 60
fd 50 bk 50
rt 30
bk 50
end
to ngoinha
repeat 4 [fd 70 rt 360/4]
fd 70
rt 30
repeat 3 [fd 70 rt 360/3]
end
to thutuc3
repeat 12[ngoinha]
end
• Thủ tục cánh hoa tuyết
to canhhoatuyet
SETPENCOLOR 4
REPEAT 8 [FD 10 BK 10 RT 45]
End;
• Thủ tục bông hoa tuyết
to bonghoatuyet
SETPENCOLOR 4
REPEAT 8[FD 50 REPEAT 8[canhhoatuyet] BK 50 RT 60]
End;
Khi bấm vào 🏴
Đặt [tổng] thành (0)
Đặt [n] thành (0)
Đặt [stt] thành (0)
Hỏi (Nhập số n) và đợi
Nếu <((n)) < (0)> thì
| Nói (Bạn đã nhập số âm, xin vui lòng thử lại) trong (5) giây
| Dừng lại [tất cả]
Nếu không thì
| {Tính tổng}
Định nghĩa {Tính tổng}
Lặp lại cho đến khi <(stt) > (n)>
| Nếu <<<((stt) chia lấy dư (3)) = (0)> hoặc <(stt) chia lấy dư (5) = (0)>> và <không phải <(stt) chia lấy dư (15) = (0)>>> thì
| | Thêm [tổng] một lượng ((stt))
| Thêm [stt] một lượng (1)
Nói ((Kết hợp (Tổng tất cả các số cần tìm là) ((tổng)))
- Chương trình của thủ tục 1 là:
to canh
setpencolor 4
setpensize[2 2]
fd 50
repeat 4 [fd 50 rt 90]
end
to thutuc1
repeat 6[canh bk 50 rt 60]
- Chương trình thủ tục 2 là:
to thutuc2
cs setpencolor 1
REPEAT 6 [REPEAT 6 [FD 100 RT 360 /6] RT 360/6]
end