作业帮编程找出六位平方数使它的前三位和后三位都是平方数 要用pascal语言要的是pascal编程过程
来源：学生作业帮助网 编辑：作业帮 时间：2024/04/29 10:15:49
编程找出六位平方数使它的前三位和后三位都是平方数 要用pascal语言要的是pascal编程过程
编程找出六位平方数使它的前三位和后三位都是平方数 要用pascal语言
要的是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