水题,先用叉积求三角形面积然后求三边上的点(由公约数上点)a然后用pick定理S=a+b/2-1就可以求出内部的点数了 var x,y,xx,yy,a1,a2,a3,x1,x2,x3,y1,y2,y3:longint; s,ans:double; function gcd(a,b:longint):longint; begin then exit(a) else exit(gcd(b,a mod b)); end; begin readln(x1,y1,x2,y2,x3,y3); ) ) ) )…