查人人中国名人网金矿伴生矿石:如何编一个程序使得EGAL*L=LGAE
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/02 00:47:39
编一个程序,使得EGAL*L=LGAE
procedure TForm1.Button1Click(Sender: TObject);
var
E,G,A,L:integer;
begin
for E:=1 to 9 do
begin
for G:=1 to 9 do
begin
for A:=1 to 9 do
begin
for L:=1 to 9 do
begin
if((1000*E+100*G+10*A+L)*L=1000*L+100*G+10*A+E)then
begin
memo1.Lines.Add('E='+inttostr(E)+'G='+inttostr(G)+'A='+inttostr(A)+'L='+inttostr(L));
end;
end;
end;
end;
end;
end;