Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
DarkMania
05.06.2022 13:18 •
Информатика
На інтервалі від n до k обрати ті числа, що містять рівно 3 однакові цифри. приклад: 6766, 5444, 1161, 6
Показать ответ
Ответ:
диана2458
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 оценок)
Популярные вопросы: Информатика
tanyaonuchkomailru
09.08.2020 15:05
Вкаком российском городе установлен памятник одному из самых распространенных устройств ввода текстовой информации...
gothalk2014
26.05.2023 03:22
Какая информация будет меньше всего занимать места на диске? -текст длиной в 100 символов -фото размером 100 на 100 пикселей -музыка длиной в 1 сек -видио длиной в 10 сек...
Forsenboy
15.03.2023 07:30
Что получится из исходного слова после нажатия указанных клавиш? мал/шина bs мал/шина del мал/шина bs bs bs мал/шина bs стрелка вправо del моло/ко del del д е ц /репка del...
nastyalisi4ka1
02.05.2021 17:47
По информатике 3 класс. три объекта на рисунке по своему назначению не подходят к пяти остальным. составь два списка: объектов, имеющих одинаковое назначение; свойств, которые...
софа336
09.09.2021 10:45
Какое количество информации (с точки зрения алфавитного подхода) содержит предложение компьютер - универсальное средство обработки информации , если считать, что алфавит...
Asker1231
09.09.2021 10:45
Выберите правильные утверждения. а) леонардо да винчи создал модель счетной машины. б) блез паскаль жил в xviii веке . в)одними из первых моделей персональных компьютеров...
baikalova83e
25.06.2020 08:57
Обозначь в квадратиках устройства ввода цифрою1,а устройства вывода цифрой - 2 монитор клавиатура колонки мышь принтер сканер...
546546YGygY
25.06.2020 08:57
Вмешке лежат 256 красных яблок.сколько информации содержит сообщение, что достали красное яблоко?...
вопрос210
25.06.2020 08:57
Решите кроссворд. единица измерения количества информации.(3 буквы) одна из тригонометрических функций.(5 букв) один из первых языков программирования высокого уровня(7...
dankorolckov20
22.09.2021 14:42
Для записи сообщения из 32 символов использовался алфавит, который состоит из 128 букв. какой объем информации содержит такое сообщение?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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