小学奥数读本（四年级），P18第8(2)题

小学奥数读本（四年级），P18第8(2)题。

var
  i,v,j,k,code:longint;
  s:string;
begin
  for i:=1 to 9 do begin
    s:=stringofchar(chr(ord('0')+i),6); //转化为字符串，比如'111111'
    val(s,v,code); //由字符串，转化为数，比如111111
    for j:=1 to 9 do begin
      k:=v div j;
      if( v mod j=0 ) then begin //如果能整除
        str(k,s);
        if( (length(s)=5) and (s[1]=s[4]) and (s[2]=s[5]) ) then
          writeln(v,' / ',j,' = ',k); //输出
      end;
    end;
  end;
end.

共得出六个答案，其中除数与商的第一位相同的，只有一个：111111 ÷ 3 = 37037。