杭州交通信息网李宁性能最好的篮球鞋:如何编一个程序使得EGAL*L=LGAE
来源：百度文库 编辑：杭州交通信息网 时间：2024/06/01 10:06:33
编一个程序,使得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;