小学奥数读本（三年级），P133第12题

小学奥数读本（三年级），P133第12题。

用一到八，八个数，组成一道除法算式：口口口口÷口=口口口

这题有两个答案:

453*6=2718

582*3=1746

用pascal编程解决，解法一：

var 
  i,j:longint;
  s:set of char;
  st:string;
begin
  for i:=123 to 987 do
    for j:=1 to 8 do begin
      s:=[];
      str(i,st);
      s += [st[1]]+[st[2]]+[st[3]];
      str(j,st);
      s += [st[1]];
      if(i*j>=1234) then begin
        str(i*j,st);
        s += [st[1]]+[st[2]]+[st[3]]+[st[4]];        
      end;
      if( s = ['1'..'8'] ) then writeln(i,' ',j,' ',i*j);
    end;
end.

 

解法二：

var 
  i,j,k:longint;
  s:set of 0..8;
begin
  for i:=123 to 987 do
    for j:=1 to 8 do begin
      s:=[];
      s += [j];
      k:=i;
      while(k>0) do begin
        s += [k mod 10];
        k := k div 10;
      end;
      k:=i*j;
      while(k>0) do begin
        s += [k mod 10];
        k := k div 10;
      end;
      if( s = [1..8] ) then writeln(i,' ',j,' ',i*j);
    end;
end.