Собсно сама цитата: >>Из бухгалтерии принисли задачку:>>Некоторое число заканчивается на "2". Если ее переставить на >>первое место, то число удвоится. Какое число было >>изначально? >>Работа IT отдела была парализована! Напрочь!!! А чем тут парализовывать то? 105263157894736842 210526315789473684 - оно же, но удвоенное эт ты канешна так постебался да? по моему 12 и 24 попроще будет... далбайоп, ты четать/щетать умееш? 12 -> 21, а не 24. для тебя, наверно, проще, если мозгов на большее не хватает Как прочитал сразу решил проверить на практике *05 Установил Delphi и написал такой код в обработчике кнопки: procedure TForm1.Button1Click(Sender: TObject); var k, i, x1, x2: int64; z, y: integer; s, sx: string; begin i:=12; k:=0; while True do begin x1:=i; s:=IntToStr(x1); sx:='2'; y:=Length(s); for z := 2 to y - 3 do begin sx:=sx+s[z]; end; sx:=sx+s[1]; inc(k); i:=i+10; if k mod 500000=0 then begin label2.Caption:=IntToStr(k); Application.ProcessMessages; end; if StrToInt64(sx)=2*StrToInt64(s) then break; end; edit1.Text:=sx; end; Это чудо считает просто _крайне_ медленно. Можно как-то ускорить обработку?