pascal平方数平方数 将1~9这九个数字组成三个三位的平方数,要求每个数字只准使用一次.输出:从小到大输出这三个平方
来源:学生作业帮 编辑:搜搜考试网作业帮 分类:综合作业 时间:2024/08/03 07:26:58
pascal平方数
平方数
将1~9这九个数字组成三个三位的平方数,要求每个数字只准使用一次.
输出:从小到大输出这三个平方数,每行一个.
样例输入
无
样例输出 Sample Output
无
时间限制 Time Limitation
各个测试点1s
3Q,说说各位的思路
平方数
将1~9这九个数字组成三个三位的平方数,要求每个数字只准使用一次.
输出:从小到大输出这三个平方数,每行一个.
样例输入
无
样例输出 Sample Output
无
时间限制 Time Limitation
各个测试点1s
3Q,说说各位的思路
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
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
pascal平方数平方数 将1~9这九个数字组成三个三位的平方数,要求每个数字只准使用一次.输出:从小到大输出这三个平方
用1至9这九个数字每个数字各一次,组成三个能被9整除的三位数,要求这三个数的和尽可能大,这三个数分别是______.
1,2,3,4,5,6,7,8,9这九个数组成三个三位数(每个数字只能用一次)这三个三位数之和最大是多少?
用1,2,3,4,5,6,7,8,9这九个数字每个数字各一次,组成三个能被9整除的三位数,要求这三个数的和尽可能大,那么
把1~9这九个数字填入方格内,使每一横行,竖行,斜行的三个数之和都相等(每个数只能用一次)
某两位正整数*某三位正整数=某四位正整数,求这三个数(只由1至9组成,每个数字出现一次)
帮我做几道题目1.用1,2,3,4,5,6,7,8,9,这九个数字每个数字各一次,组成能被9整除的三位数,要求这三个数的
c++语言求在三位整数该数既是完全平方数,又有两个数字相同并输出满足条件数的个数
用1~9九个数字,填入下面的方框里,每个数只能用一次,使三个分数相等.
用123456789这九个数组成三个三位数,每个数字只能用一次,使第二个数是第一个数的2倍,第三个数是第一...
用123456789九个数字,写出三个大小相等的分数.每个数只能用一次
123456789这九个数组成三个加法算式(每个数只能使用一次)