作业帮pascal平方数平方数 将1~9这九个数字组成三个三位的平方数,要求每个数字只准使用一次.输出：从小到大输出这三个平方数,每行一个.样例输入 无 样例输出 Sample Output 无 时间限制 Time Limitation
来源：学生作业帮助网 编辑：作业帮 时间：2024/11/08 20:48:48
pascal平方数平方数 将1~9这九个数字组成三个三位的平方数,要求每个数字只准使用一次.输出：从小到大输出这三个平方数,每行一个.样例输入 无 样例输出 Sample Output 无 时间限制 Time Limitation
pascal平方数
平方数
将1~9这九个数字组成三个三位的平方数,要求每个数字只准使用一次.
输出：从小到大输出这三个平方数,每行一个.
样例输入
无
样例输出 Sample Output
无
时间限制 Time Limitation
各个测试点1s
3Q,说说各位的思路
pascal平方数平方数 将1~9这九个数字组成三个三位的平方数,要求每个数字只准使用一次.输出：从小到大输出这三个平方数,每行一个.样例输入 无 样例输出 Sample Output 无 时间限制 Time Limitation
var f:array[0..9] of boolean;
p,i,j,k,t,a:longint;
begin
p:=trunc(sqrt(1000));
for i:=10 to p do
for j:=i+1 to p do
for k:=j+1 to p do
begin
for t:=1 to 9 do f[t]:=false;
a:=i*i;
f[a mod 10]:=true; f[a div 10 mod 10]:=true; f[a div 100]:=true;
a:=j*j;
f[a mod 10]:=true; f[a div 10 mod 10]:=true; f[a div 100]:=true;
a:=k*k;
f[a mod 10]:=true; f[a div 10 mod 10]:=true; f[a div 100]:=true;
a:=0;
for t:=1 to 9 do
if f[t]=true then a:=a+1;
if a=9 then writeln(i*i,' ',j*j,' ',k*k);
end;
end.
运行结果：
361 529 784