Giải bài Đổi tiền trong đề thi Tin học trẻ QG bảng A, 2016

Trường hợp 2 đồng, 5 đồng, 22 đồng

to doitien 
rt 90
for [i 0 11][
for [j 0 4][
if :i*2 + :j*5 = 22 [
label :i
pu fd 100 pd
label :j
pu bk 100 pd
pu lt 90 bk 20 rt 90 pd
]
]
]
end

Trường hợp tổng quát a đồng, b đồng, m đồng

to doitien :a :b :m
rt 90
make "c int :m/:a
make "d int :m/:b
for [i 0 :c][
for [j 0 :d][
if :i*:a + :j*:b = :m [
label :i
pu fd 100 pd
label :j
pu bk 100 pd
pu lt 90 bk 20 rt 90 pd
]
]
]
end