var i:Integer; begin memo1.Lines.Clear; for i:=1 to 1000000 do if (i mod 7=5) and (i mod 9=3) and (i mod 11=4) then memo1.Lines.Append(IntToStr(i)); end; end. 懂编程的可以用这个公式算算
参考资料:642