一筐鸡蛋一个一个拿正好拿完，两个两个拿余1,三个三个拿余1，四个四个拿余3，五个五个拿余1，六个六个拿余1，七个七个拿刚好拿完。

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure Edit1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
n:Integer;
begin
n:=StrToInt(Edit1.Text) ;
if ((n mod 7 = 0) and (n mod 6=1)and(n mod 5=1)and(n mod 4=3)and(n mod 3=1)and(n mod 2=1))then
else
begin
n:= n+1
end;
Edit1.Text:= IntToStr(n)
end;
procedure TForm1.Edit1Click(Sender: TObject);
begin
Edit1.Text:='';
end;
end.
弄完了之后要点N多下才出答案，怎么改才能让它点一下就出答案，本人刚解除编程，请赐教，谢谢

点了好几十下停留在91这个数上了

这是同余方程组，先弄清楚这个问题的解法吧，这不是编程问题，是数学问题

首先两个两个拿余1，说明是奇数，五个五个拿余1，说明个位数是1，七个七个刚好拿完，说明这个数可表示为7n，7n的个位数是1，说明n的个位数是3，所以可将n=3，13，23，…代进去，n=13，33…满足条件，所以归纳出这个数为140n-49(n∈正整数)，后续可以通过数学归纳法证明。

dd