编程找出六位平方数使它的前三位和后三位都是平方数 要用pascal语言
来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/09/29 16:20:26
编程找出六位平方数使它的前三位和后三位都是平方数 要用pascal语言
要的是pascal编程过程
要的是pascal编程过程
program pfs;
var
s:string;
i,j,m,n:longint;
flag:boolean;
function check(var x:longint):boolean;{定义check函数,用来检验一个数是否为平方数}
var
k:longint;
begin
k:=trunc(sqrt(x));
for j:=1 to k+1 do
begin
if sqr(j)=x then
begin
flag:=true;
break;
end
else
flag:=false;
end;
check:=flag;
end;
begin
assign(output,'pfs.out');rewrite(output);
for i:=100000 to 999999 do{穷举所有6位数}
begin
str(i,s);{把6位数转化为字符串}
val(copy(s,1,3),m);{前三位存为m}
val(copy(s,4,3),n);{后三位存为n}
if check(i)=true then{如果6位数是平方数}
begin
if (check(m)=true) and (check(n)=true) then writeln(i);{且m,n都是平方数,则输出这个六位数}
end;
end;
close(output);
end.
最后的输出结果为:
144400
225625
256036
324900
576081
var
s:string;
i,j,m,n:longint;
flag:boolean;
function check(var x:longint):boolean;{定义check函数,用来检验一个数是否为平方数}
var
k:longint;
begin
k:=trunc(sqrt(x));
for j:=1 to k+1 do
begin
if sqr(j)=x then
begin
flag:=true;
break;
end
else
flag:=false;
end;
check:=flag;
end;
begin
assign(output,'pfs.out');rewrite(output);
for i:=100000 to 999999 do{穷举所有6位数}
begin
str(i,s);{把6位数转化为字符串}
val(copy(s,1,3),m);{前三位存为m}
val(copy(s,4,3),n);{后三位存为n}
if check(i)=true then{如果6位数是平方数}
begin
if (check(m)=true) and (check(n)=true) then writeln(i);{且m,n都是平方数,则输出这个六位数}
end;
end;
close(output);
end.
最后的输出结果为:
144400
225625
256036
324900
576081
编程找出六位平方数使它的前三位和后三位都是平方数 要用pascal语言
一个六位数,它的前三位数字和后三位数字完全相同,试证明7是这个六位数的一个约数,并探索找出其他约数.
一个六位数把后三位和前三位对调位置,得到一个新的六位数,新数字的六倍等于原数的七倍,
一个六位数N,它的前三位与后三位组成的数之和为481,求证37整除N?
一个六位数前三位数字和后三位数字完全相同,试证7是这六位数的约数,并探索找出
七位数电话号码,把它前四位组成的数与后三位组成的数相加得9063,把它前三位组成的数与后面四位组成的数相加得2529,这
()()1,()()()4分别表示一个三位完全平方数和四位完全平方数.它们可能是几?
有一类六位自然数,它们的前三位数组成的数与后三位组成的数相同,求在这类自然数中,能被4433
一个四位数字,前两个数字相同,后两个数字相同,且这个四位数是一个整数的平方,用C语言编程求这个数
c++编程题 输出全部满足以下条件的三位正整数n 它既是完全平方数又有两位数字相同
六位数,后三位是是857,将这个六位数乘以6后,得到的新数恰好是原六位数的前三位与后三位互换位置所成的数,求原六位数.(
一六位数,后三位相同,前三位是从小到大排列的连续自然数.以知这个六位数各个数位之和等于后两位.求这个数