将天然数1--9这九个数分红三组，将每组的三个数字拼成三位数，每一个数字不能重复，且每一个三位数都是彻底平方数。请找出这样的三个三位数。

program p1; var a:array[1..3]of integer;     i,j,k,x:integer; function yes:boolean; var i:integer;     d:set of 0..9; begin  d:=[];  for i:=1 to 3 do   d:=d+[a[i] div 100,(a[i] mod 100) div 10,a[i] mo

>>阅读原文<<