將天然數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

>>阅读原文<<