将自然数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] mod 10];
  yes:=true;
  for i:=1 to 9 do
   if not(i in d) then yes:=false;
end;
begin
  for i:=11 to 29 do
   begin
    a[1]:=i*i;
    for j:=i+1 to 30 do
     begin
      a[2]:=j*j;
      for k:=j+1 to 31 do
           begin
           a[3]:=k*k;
      if yes then
             for x:=1 to 3 do writeln(x:8,':',a[x]:8);
      end;
     end;
    end;
end.
阅读更多
版权声明:本文为博主原创文章,未经博主允许不得转载。 https://blog.csdn.net/jing1223639316/article/details/46826501
个人分类: 编程
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

关闭
关闭
关闭