Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
TraktoristGenadiy
27.12.2021 16:48 •
Информатика
На інтервалі від n до k обрати ті числа, що містять рівно 3 однакові цифри. приклад: 6766, 5444, 1161, 6
Показать ответ
Ответ:
яна15с
08.10.2020 20:40
// PascalABC.NET
// Версия 3.3.5 сборка 1662 (29.04.2018)
begin
for var i := ReadInteger('n->') to ReadInteger('k->') do
if i.ToString.OrderBy(t -> t).AdjacentGroup.Where(t -> t.Count = 3).Count > 0
then i.Println;
end.
Пример:
k-> 1170
n-> 1111
1112
1113
1114
1115
1116
1117
1118
1119
1121
1131
1141
1151
1161
0,0
(0 оценок)
Популярные вопросы: Информатика
alinayusupova305
05.10.2020 04:23
ПО ИНФОРМАТИКЕ Дано двузначное число. Определить, является ли сумма его чисел двузначным числом. ПАСКАЛЬ.СОСТАВНОЙ ОПЕРАТОР...
nyamnov
18.02.2020 05:13
Первое электронное письмо содержит 50 символов из 32-символьного алфавита, второе - 40 символов из 64-символьного алфавита. На сколько бит объём одного письма больше другого?...
Kurakik
18.02.2020 05:13
получите внутреннее представление числа 153 и -153 в 8 разрядной ячейке памяти в формате со знаками...
assasin098
23.12.2021 23:29
1.За яким алгоритмом у середовищі Скретч створюють складні проекти? 2.Чому доцільно розбити складну задачу на підзадачі під час складання алгоритму її розв язування?...
POMOGI111PJ
22.10.2022 16:38
Какое количество информации в битах (с точки зрения алфавитного подхода) содержит шестнадцатеричное число abcde16? в ответе укажите только число....
Ionutamaria90
22.10.2022 16:38
Составить алгоритм для решения : книга стоит d руб., журнал h руб. у покупателя денег s руб. хватит ли их на 3 журнала и 2 книги? ....
egoroff1271
20.03.2023 05:45
Проанализируй диаграмму и заполни таблицу. A B 1 Товар Количество товара 2 Товар W 117 3 Товар X 4 Товар Y 5 Товар Z 117...
Milanusia
27.07.2021 13:06
Какие виды крестьянской зависимости в средние века вы знаете? чем они различались?...
ира10141
27.07.2021 13:06
9. назовите типичных представителей растительного мира тайги: а. пихта и ель б. акация и баобаб в. береза и клен г. секвойя и кипарис 10.какая природная зона не представлена...
Dania2432
27.07.2021 13:06
Уста созинин синонимы,мугалим син,жазу,корку,урейлену,куану,мактану,шебер,азир болу,сыйласу,коп сойлеу,ажарлы-их синонимы (...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Версия 3.3.5 сборка 1662 (29.04.2018)
begin
for var i := ReadInteger('n->') to ReadInteger('k->') do
if i.ToString.OrderBy(t -> t).AdjacentGroup.Where(t -> t.Count = 3).Count > 0
then i.Println;
end.
Пример:
k-> 1170
n-> 1111
1112
1113
1114
1115
1116
1117
1118
1119
1121
1131
1141
1151
1161