В виду того, что компы стали мощными можем на VBA получить точное значение (решение)
вот код макроса:
Sub stepen2()
Cells.ClearContents
Cells(100, 1) = 1
For ii = 1 To 2012
For jj = 100 To 1 Step -1
Cells(jj, 1) = Cells(jj, 1) * 2
If Cells(jj, 1) / 1000000000 > 1 Then
Cells(jj - 1, 1) = Cells(jj - 1, 1) + Int(Cells(jj, 1) / 1000000000)
Cells(jj, 1) = Cells(jj, 1) Mod 1000000000
End If
If Val(Cells(jj - 1, 1)) = 0 Then
Exit For
End If
Next jj
Cells(1, 2) = ii
Next ii
End Sub
а вот результат:
277600
484180914
110100692
908199626
777175998
906662654
946673212
406981568
386969180
296600978
801189338
156202032
201722248
591640136
844532954
713946292
009775394
154798274
341296832
294785858
759983616
809985596
007514718
163021704
642594956
858807972
255328788
357638036
831237454
529306332
816290440
171550302
783082130
808607552
199561964
596380478
291673708
271401292
405462080
071398356
563875274
993445538
683214178
190455266
158427886
884340476
386740370
347042456
140822200
118371556
435915386
656556714
882715670
089904048
042932848
660732680
298307146
926170078
546446280
547524360
917307714
068542384
994370172
055090126
446994684
815490724
911914162
545994438
818300612
424324096
а вот остроумная проверка правильности последних 6 цифр числа 2 в степени 2012
обратите внимание на формулу!! !