能被6整除的有：
取6或12,再另取一个：有2*24=48
不含6,12的数中还有8个偶数,14个奇数（其中3的倍数有2个）,从中偶数和3的奇数倍数各取一个,有8*2=16个
所以,共有16+48=64个.应该是21个吧！分析、计算过；还编程序验证过，正确无误。程序如下：var i,j,s:integer;beginfor i:=1 to 13 dofor j:=1 to 13 doif i*j mod 6=0 then inc(s);writeln(s)end.