【問題】






140 for k=1 to 4
150 for l=1 to 4
160 for m=1 to 4
170 p=k*l*m
180 q=k+l+m
190 pa=0
200 pb=0
210 if int(p/3)*3=p then pa=1
220 if int(p/2)*2=p then pb=1
230 qa=0
240 qb=0
250 if int(q/3)*3=q then qa=1
260 if int(q/2)*2=q then qb=1
270 print "(";k;",";l;",";m;")";pa;pb;qa;qb
280 next m
290 next l
300 next k
310 end

( 1, 1, 1) 0 0 1 0
( 1, 1, 2) 0 1 0 1
( 1, 1, 3) 1 0 0 0
( 1, 1, 4) 0 1 1 1
( 1, 2, 1) 0 1 0 1
( 1, 2, 2) 0 1 0 0
( 1, 2, 3) 1 1 1 1
( 1, 2, 4) 0 1 0 0
( 1, 3, 1) 1 0 0 0
( 1, 3, 2) 1 1 1 1
( 1, 3, 3) 1 0 0 0
( 1, 3, 4) 1 1 0 1
( 1, 4, 1) 0 1 1 1
( 1, 4, 2) 0 1 0 0
( 1, 4, 3) 1 1 0 1
( 1, 4, 4) 0 1 1 0
( 2, 1, 1) 0 1 0 1
( 2, 1, 2) 0 1 0 0
( 2, 1, 3) 1 1 1 1
( 2, 1, 4) 0 1 0 0
( 2, 2, 1) 0 1 0 0
( 2, 2, 2) 0 1 1 1
( 2, 2, 3) 1 1 0 0
( 2, 2, 4) 0 1 0 1
( 2, 3, 1) 1 1 1 1
( 2, 3, 2) 1 1 0 0
( 2, 3, 3) 1 1 0 1
( 2, 3, 4) 1 1 1 0
( 2, 4, 1) 0 1 0 0
( 2, 4, 2) 0 1 0 1
( 2, 4, 3) 1 1 1 0
( 2, 4, 4) 0 1 0 1
( 3, 1, 1) 1 0 0 0
( 3, 1, 2) 1 1 1 1
( 3, 1, 3) 1 0 0 0
( 3, 1, 4) 1 1 0 1
( 3, 2, 1) 1 1 1 1
( 3, 2, 2) 1 1 0 0
( 3, 2, 3) 1 1 0 1
( 3, 2, 4) 1 1 1 0
( 3, 3, 1) 1 0 0 0
( 3, 3, 2) 1 1 0 1
( 3, 3, 3) 1 0 1 0
( 3, 3, 4) 1 1 0 1
( 3, 4, 1) 1 1 0 1
( 3, 4, 2) 1 1 1 0
( 3, 4, 3) 1 1 0 1
( 3, 4, 4) 1 1 0 0
( 4, 1, 1) 0 1 1 1
( 4, 1, 2) 0 1 0 0
( 4, 1, 3) 1 1 0 1
( 4, 1, 4) 0 1 1 0
( 4, 2, 1) 0 1 0 0
( 4, 2, 2) 0 1 0 1
( 4, 2, 3) 1 1 1 0
( 4, 2, 4) 0 1 0 1
( 4, 3, 1) 1 1 0 1
( 4, 3, 2) 1 1 1 0
( 4, 3, 3) 1 1 0 1
( 4, 3, 4) 1 1 0 0
( 4, 4, 1) 0 1 1 0
( 4, 4, 2) 0 1 0 1
( 4, 4, 3) 1 1 0 0
( 4, 4, 4) 0 1 1 1
6の倍数3の倍数であるが
2の倍数でない
3の倍数でないが
2の倍数である
3の倍数でなく
2の倍数でない
6の倍数X=5X=5X=5X=5
66126
3の倍数であるが
2の倍数でない
X=5X=3X=5X=3
0106
3の倍数でないが
2の倍数である
X=5X=5X=1X=1
5399
3の倍数でなく
2の倍数でない
X=5X=3X=1X=0
0100


6の倍数3の倍数であるが
2の倍数でない
3の倍数でないが
2の倍数である
3の倍数でなく
2の倍数でない
6の倍数X=5X=5X=5X=5
66(?)(?)
3の倍数であるが
2の倍数でない
X=5X=3X=5X=3
0106
3の倍数でないが
2の倍数である
X=5X=5X=1X=1
5399
3の倍数でなく
2の倍数でない
X=5X=3X=1X=0
0100