pascal解题速度啊一个五位数,若在它的后面写上一个7,得到一个六位数A,若在它前面写上一个7,得到一个六位数B,B是A的五倍,求此五位数.

Question

pascal解题速度啊
一个五位数,若在它的后面写上一个7,得到一个六位数A,若在它前面写上一个7,得到一个六位数B,B是A的五倍,求此五位数.

Answer 1

var i,m,n:longint;
begin
for i:=10000 to 80000 do
begin
m:=i*10+7;
n:=700000+i;
if n=m*5 then writeln(i);
end;
end.
这是最简单的程序,通过数论的推导应该可以更优化,不过由于数据很小很小,推导就没什么必要了.