问题描述:任何一张地图只要用四种颜色进行填涂,就可以保证相邻省份不同色 program tt. const num=20. var a:array [1..num,1..num] of 0..1. s:array [1..num] of 0..4. {用1-4分别代表RBWY四种颜色.0代表末填进任何颜色} k1,k2,n:integer. function pd(i,j:integer):boolean.{判断可行性:第I个省填上第J种颜色} var k:integer. begin for k:=1 to i-1 do {一直从第一个省开始进行比较一直到I省减一的那个省,目的是对已经着色的省份来进行比较,因为