pascal平方数平方数 将1~9这九个数字组成三个三位的平方数,要求每个数字只准使用一次.输出:从小到大输出这三个平方数,每行一个.样例输入 无 样例输出 Sample Output 无 时间限制 Time Limitation
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/17 01:50:24
![pascal平方数平方数 将1~9这九个数字组成三个三位的平方数,要求每个数字只准使用一次.输出:从小到大输出这三个平方数,每行一个.样例输入 无 样例输出 Sample Output 无 时间限制 Time Limitation](/uploads/image/z/3945698-26-8.jpg?t=pascal%E5%B9%B3%E6%96%B9%E6%95%B0%E5%B9%B3%E6%96%B9%E6%95%B0+%E5%B0%861%7E9%E8%BF%99%E4%B9%9D%E4%B8%AA%E6%95%B0%E5%AD%97%E7%BB%84%E6%88%90%E4%B8%89%E4%B8%AA%E4%B8%89%E4%BD%8D%E7%9A%84%E5%B9%B3%E6%96%B9%E6%95%B0%2C%E8%A6%81%E6%B1%82%E6%AF%8F%E4%B8%AA%E6%95%B0%E5%AD%97%E5%8F%AA%E5%87%86%E4%BD%BF%E7%94%A8%E4%B8%80%E6%AC%A1.%E8%BE%93%E5%87%BA%EF%BC%9A%E4%BB%8E%E5%B0%8F%E5%88%B0%E5%A4%A7%E8%BE%93%E5%87%BA%E8%BF%99%E4%B8%89%E4%B8%AA%E5%B9%B3%E6%96%B9%E6%95%B0%2C%E6%AF%8F%E8%A1%8C%E4%B8%80%E4%B8%AA.%E6%A0%B7%E4%BE%8B%E8%BE%93%E5%85%A5+%E6%97%A0+%E6%A0%B7%E4%BE%8B%E8%BE%93%E5%87%BA+Sample+Output+%E6%97%A0+%E6%97%B6%E9%97%B4%E9%99%90%E5%88%B6+Time+Limitation)
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