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

最新推荐文章于 2024-04-22 21:33:56 发布

原创最新推荐文章于 2024-04-22 21:33:56 发布 · 7.9k 阅读

0 ·

CC 4.0 BY-SA版权

编程专栏收录该内容

86 篇文章

订阅专栏

本文介绍了一种通过遍历特定范围内的整数并检查这些整数平方后的十进制数字是否覆盖1到9所有数字的方法。该算法使用Pascal语言实现，并展示了如何构造一个函数来验证数字序列的有效性。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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.