Я сам в шоке, но решение нашла моя прога на 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-й строчки
Домашние задания: Другие предметы
ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ докажите что среди чисел вида 1, 11, 111 ...найдётся число которое делится на 2003
Нет учись и будеш умним
Похожие вопросы
- Помогите решить задачу! (русский язык) Назовите окончания глаголов 1 и 2 спряжения. Проспрягайте глаголы строить,гулять.
- помогите решить задачу по физике 11 класс
- Помогите решить задачу, люди добрые!!!!Стереометрия, 11 класс...))
- Помогите решить задачу по алгебре 11 класс
- Сколько существует натуральных трехзначных чисел, которые делятся только на одно из чисел 4 или 5?
- Сколько существует натуральных трехзначных чисел, которые делятся только на одно из чисел 5 или 6?
- Помогите решить задачи по физике оч надо,плииз!!!!Умоляю нужно моей сестренке на домашнем обучении!!!!
- Помогите пожалуйста!!! Надо найти число которое делится на 2,3,4,5,6.7,8,9,10 без остатка!!!
- Помогите решить задачу по физике, тема жидкости. Это по программе 11 класса, но задача олимпиадная.
- помогите решить задачу за 2 класс
B1 =ЦЕЛОЕ ((A1+C2*1000000)/2003)
С1 =ОСТАТ ((A1+C2*1000000);2003)
и их нужно скопировать до 200-й строчки