Question

pascal语言 有一个五位数，分别在它的前面和后面添写一个1，得到两个六位数。已知第二个六位数是第一个六位数的三倍，请

Answer 1

var

x:qword;

begin

x:=10000;

repeat

x:=x+1;

until (x+100000)*3=x*10+1;

write(x);

readln

end.