Найти два последовательных натуральных числа

echs · Регистрация: 23.10.2013

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

Найти два последовательных натуральных числа таких,
что сумма их цифр делится на 11.
Пару таких чисел программа нашла 2899999, 2900000
Есть и другие пары.
Вопрос
Сколько их на интервале [1; 2 147 483 647]?

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
REM
REM  2899999, 2900000
REM
 
DECLARE FUNCTION SZ! (n AS LONG)
 
CLS
DIM n AS LONG
 
FOR n = 2999 TO 3000000 STEP 1000
   a = SZ(n) MOD 11
   b = SZ(n + 1) MOD 11
   IF a + b = 0 THEN PRINT n;
NEXT
END
 
FUNCTION SZ (n AS LONG)
   DIM s AS STRING
   DIM z AS STRING
 
   s = STR$(n)
   FOR i = 2 TO LEN(s)
      z = MID$(s, i, 1)
      sum = sum + VAL(z)
   NEXT
 
   SZ = sum
END FUNCTION

@кот Бегемот · 24.02.2017, 14:03

5 и 6
Я вот одного не пойму, echs, на хера вот ты постишь здесь 18000 никому не нужных задач.
Тебе жить скучно или как?

@Pro_grammer · 24.02.2017, 14:25

Сообщение от кот Бегемот

вот ты постишь здесь 18000 никому не нужных задач

Как когда то вроде Жванецкий сказал:"И даже получили подробные ответы не на свои вопросы."

Не, ну правилами не запрещено, пусть будет.
Есть графоманы, это все знают, а у нас на форуме кодоман

echs · 24.02.2017, 15:00 **[ТС]**

кот Бегемот
Мне жить не скучно. Каждая программа приносит Радость!
Это мое хобби. Кажется вы тоже любите программировать...
Неужели вы это делаете от скуки???... Не поверю!!
...
Pro_grammer
Спасибо!
Просто так спасибо! Просто Весна! Просто еще одна программа!

@STAR WARS · 24.02.2017, 17:59

По видимому они интересуются какая у вас мелодия.Вот я например люблю смотреть мультфильм ВЛАСТЕЛИНЫ ВРЕМЕНИ,кино АНГАР 18,кино ПОЛЁТ НАВИГАТОРА,кино САТУРН ТРИ.А у вас какая мелодия?

@Quiet Snow · 26.02.2017, 22:44

Сообщение от Pro_grammer

Есть графоманы, это все знают, а у нас на форуме кодоман

Забавно не то, что человек строчит никому не нужные задачи и их решения. А то
что он напрочь игнорит критику, конечно когда он поймёт, что это гавно его не
прокормит, начнёт что-то другое изучать, но скорее всего застрянет, бедолага.
Это ж старьё оно как трясина, засосёт и с концами.

@dr_Morro · 27.02.2017, 13:44

Сообщение от Pro_grammer

а у нас на форуме кодоман

Вот поэтому на эту ветку уже и заходить не хочется.

echs · 27.02.2017, 13:52 **[ТС]**

dr_Morro
Кто мешает вам самому создать свою тему?
Все ждут интересной задачи. А они с неба не падают.
Я хоть что-то создаю и буду это делать даже если
останусь последним программистом на QBasic'e...

@dr_Morro · 27.02.2017, 13:55

Добавлю чуток... Вот эти вот 100500 сообщений разве нельзя приравнять к банальному спаму? А спам разве не наказуем? Пусть заведет себе сайт и выкидывает туда свои "сперпрекрасные коды". А если публичности - пусть группу вконтакте создаст, привлечет кучу "фанатов" и наслаждается.

Сорри, накипело...

Добавлено через 1 минуту

Сообщение от echs

Кто мешает вам самому создать свою тему?

Дружище, ты не темы создаешь, а просто спамишь

@Quiet Snow · 27.02.2017, 17:33

Сообщение от dr_Morro

не темы создаешь, а просто спамишь

Не по теме:

У нас на форуме недавно ошивался кроссфорумный спам бот, сбрили быстро, но сомнения были
(т.к. бот немногословен, работает по ключевым словам и иногда попадает в тему разговора).
Даже боюсь представить если с этого раздела начнут репостинг делать.
Обычно можно отличить по отсутствующим частям предложений и отсутствующим вложениям,
темы откуда перепостили, слава богу ищутся в гугле, а так конечно это дикая дичь.
И да у этих псов IP динамические, т.е. банов они не боятся. Регает их вроде человек.
Скоро чую новая волна этого гвна повалит, т.к. кто-то пытается продвинуть антиспам продукты.
Забавно что цайбера это не коснулось, т.к. тут все условия, для размножения подобного вида
ботов, и атаки эти весьма не хилые если так подумать.

@vlisp · 28.02.2017, 03:10

Сообщение от Pro_grammer

Не, ну правилами не запрещено, пусть будет.

это называется спам, с тех пор как я сюда заходил пару дней назад он настрогал больше 20 новых бесполезных тем... в которых затерялась одна полезная... просто поставьте себя на месте школьника, возможно смышленого, который ждет ответа на вопрос, который его мучит а пока тут ... ну, вы поняли

@Sasha_Smirnov · 28.02.2017, 04:35

Сообщение от vlisp

…себя на месте школьника

Вот я себя так и представил, и для новичка

Сообщение от Sasha_Smirnov

каждый отлаженный код был на вес золота.

Сообщение от Quiet Snow

Не по теме:

Конкретно тут самое то - стебаться над бездарностью школоты, т.к. воспринимать всё это всерьёз, весьма сложно, будучи в здравом уме.

Так создайте стёбную тему! Или в имеющихся добавьте градус сатиры и критики.

@Quiet Snow · 28.02.2017, 05:11

Сообщение от Sasha_Smirnov

Так создайте стёбную тему! Или в имеющихся добавьте градус сатиры и критики.

Стёбных тем не создаю, а критики тут полно, просто её не заметно под пластами тем геха.
Есть такое понятие "информационный шум", когда не определены границы полезности вбрасываемой
в общее инф. пространство инфы - этот шум будет поглощать всё, затрудняя выборку информации.
И это ещё не спам бот, десяток спам ботов подогреваемых неосведомлёнными пиплами, положили бы
форум на лопатки в плане инф. шума.

@Quiet Snow · 28.02.2017, 05:12

.............

@Sasha_Smirnov · 28.02.2017, 19:19

Возможно, древность диалекта сказывается:

Сообщение от Quiet Snow

тут всего 3 человека кто под DOS писал

Однако просматриваемость тем этой ветки (пока они свежие) — около 10 в сутки, это что-то!

Например, аналогичные погремушки на ВБА вызывают неподдельный всплеск интереса: Вычисление суммы трехзначных чисел, в десятичной записи которых нет четных цифр (просмотров 417 и 9 лайков в ответах, причём последнее "спасибо" сегодня — это спустя почти полтора года от создания темы!).

Вот есть же фанатики матанализа: https://www.cyberforum.ru/blog... g4595.html!

@Quiet Snow · 28.02.2017, 19:45

Sasha_Smirnov, матан это матан, а бесполезные темы это бесполезные темы.
Речь то про абсолютно нигде не применимое а соотв. и бесполезное.
Науки нужны не для абсолютно тупого перелопачивания формул ими надо пользоваться,
делать жизнь лучше, развивать отрасли, насколько это возможно.
И каким боком кол-во просмотров и плюсики к реальной полезности? Гех ставит плюсы
и "лучшие ответы" даже там, где в сообщении ничего полезного толком нет.
Поотменял бы 80% "лучших ответов" к чертям, чтобы не пудрить мозги, но тут балаболам
доверяют больше чем программистам, посему как говорится "as you wish"...

Новые блоги и статьи Все статьи Все блоги /
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ

@кот Бегемот Платежеспособный зверь 8966 / 4389 / 1655 Регистрация: 28.10.2009 Сообщений: 11,647
	24.02.2017, 14:03
	5 и 6 Я вот одного не пойму, echs, на хера вот ты постишь здесь 18000 никому не нужных задач. Тебе жить скучно или как? 2

echs Регистрация: 23.10.2013 Сообщений: 5,076 Записей в блоге: 8
	24.02.2017, 15:00 [ТС]
	кот Бегемот Мне жить не скучно. Каждая программа приносит Радость! Это мое хобби. Кажется вы тоже любите программировать... Неужели вы это делаете от скуки???... Не поверю!! ... Pro_grammer Спасибо! Просто так спасибо! Просто Весна! Просто еще одна программа! 0

@STAR WARS 34 / 40 / 3 Регистрация: 24.11.2016 Сообщений: 159
	24.02.2017, 17:59
	По видимому они интересуются какая у вас мелодия.Вот я например люблю смотреть мультфильм ВЛАСТЕЛИНЫ ВРЕМЕНИ,кино АНГАР 18,кино ПОЛЁТ НАВИГАТОРА,кино САТУРН ТРИ.А у вас какая мелодия? 1

echs Регистрация: 23.10.2013 Сообщений: 5,076 Записей в блоге: 8
	27.02.2017, 13:52 [ТС]
	dr_Morro Кто мешает вам самому создать свою тему? Все ждут интересной задачи. А они с неба не падают. Я хоть что-то создаю и буду это делать даже если останусь последним программистом на QBasic'e... 0

@Quiet Snow Кормпилятор 5044 / 1718 / 409 Регистрация: 25.04.2010 Сообщений: 4,827 Записей в блоге: 2
	28.02.2017, 05:12
	............. 0

@Quiet Snow Кормпилятор 5044 / 1718 / 409 Регистрация: 25.04.2010 Сообщений: 4,827 Записей в блоге: 2
	28.02.2017, 19:45
	Sasha_Smirnov, матан это матан, а бесполезные темы это бесполезные темы. Речь то про абсолютно нигде не применимое а соотв. и бесполезное. Науки нужны не для абсолютно тупого перелопачивания формул ими надо пользоваться, делать жизнь лучше, развивать отрасли, насколько это возможно. И каким боком кол-во просмотров и плюсики к реальной полезности? Гех ставит плюсы и "лучшие ответы" даже там, где в сообщении ничего полезного толком нет. Поотменял бы 80% "лучших ответов" к чертям, чтобы не пудрить мозги, но тут балаболам доверяют больше чем программистам, посему как говорится "as you wish"... 1

Найти два последовательных натуральных числа

Решение