关闭

将自然数1--9这九个数分成三组,将每组的三个数字拼成三位数,每个数字不能重复,且每个三位数都是完全平方数。请找出这样的三个三位数。

277人阅读 评论(0) 收藏 举报
分类:
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.
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:16095次
    • 积分:118
    • 等级:
    • 排名:千里之外
    • 原创:91篇
    • 转载:0篇
    • 译文:0篇
    • 评论:0条
    文章分类
    文章存档