"Счастливый билет": Упростить задачу компьютеру, чтоб он не перебирал каждое число

@anhelinamar · Регистрация: 01.11.2014

Author24 — интернет-сервис помощи студентам

Я создала программу "Счастливый билет"(сумма первых 3 цифр равна сумме последних 3 цифр). Но один минус, в программе перебирает каждую комбинацию. Как упростить задачу компьютеру, чтоб он не перебирал каждое число, тк например в числе 123456 цифра 1 изменится аж через 100 000 раз, 2 через 10 000, 3 через 1000 и тд?

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var n,k,bilet,i:integer;
begin
n:=StrToInt(Edit1.Text);
k:=StrToInt(Edit2.Text);
bilet:=0;
for i:=n to k do
if ((i div 100000)+(i div 10000 mod 10)+(i div 1000 mod 10))=
   ((i div 100 mod 10)+(i div 10 mod 10)+(i mod 10)) then
   begin
     bilet:=bilet+1;
     Memo1.Lines.Add(IntToStr(i));
   end;
Memo1.Lines.Add('Всего в интервале от '+IntToStr(n)+' до '+
                 IntToStr(k)+' счастливых билетов ='+IntToStr(bilet));
end;

	22.12.2014, 13:28