UC知道关于Turbo Pascal的难题18/27
来源：百度知道 编辑：UC知道 时间：2024/06/23 05:08:48
求2-1000中的守形数（若某数的平方，其低位与与该数本身相同，则称该数为守形数。例如25，25*25=625，625的低位25与原数相同，则称25为守形数。）
5
6
25
76
376
625
program abc;
var i,n:longint;
begin
n:=10;
for i:=2 to 1000 do begin
if i div n > 0 then n:=n*10;//判断i的位数来取尾//
if ( (i*i)-( ( (i*i) div n ) *n)=i) then writeln(i);//判断输出//
end;
readln;
end.
在