Домашние задания: Другие предметы

ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ докажите что среди чисел вида 1, 11, 111 ...найдётся число которое делится на 2003

Я сам в шоке, но решение нашла моя прога на VBA в Excel запускать нужно макрос ggg():
Sub Умножим (фф)
перенос = 0
For kk = 1 To 1000
mmm = IIf(kk = 1, 1, 0) + перенос + Cells(kk, 1) * фф
If mmm = 0 Then
Exit For
End If
If mmm > 999999 Then
перенос = Int(mmm / 1000000)
Cells(kk, 1) = mmm Mod 1000000
Else
Cells(kk, 1) = mmm
перенос = 0
End If
Next kk
End Sub

Sub bbb()
Cells(1, 6) = Cells(1, 6) + 1
Call ppp
End Sub
Sub ppp()
aaa = Cells(1, 6)
Cells(1, 6) = aaa
Call Умножим (10)
End Sub
Sub ggg()
Columns(1).ClearContents
Cells(1, 1) = 111111
For lll = 1 To 1000
Call bbb
If Cells(1, 3) = 0 Then
Exit Sub
End If
Next lll
End Sub
' Мой qiwi-кошелек: +77772402047
====================
а вот ответ самые старшие разряды ВНИЗУ:
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
111111
11111
========
я забыл выложить формулы:
B1 =ЦЕЛОЕ ((A1+C2*1000000)/2003)
С1 =ОСТАТ ((A1+C2*1000000);2003)

и их нужно скопировать до 200-й строчки
Максим Шимко
Максим Шимко
61 794
Лучший ответ
Максим Шимко я забыл выложить формулы:
B1 =ЦЕЛОЕ ((A1+C2*1000000)/2003)
С1 =ОСТАТ ((A1+C2*1000000);2003)

и их нужно скопировать до 200-й строчки
Нет учись и будеш умним