Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Вадим98913
21.01.2023 15:17 •
Информатика
Дана строка 'аб12сд134е5'.из неё нужно узнать кол-во чисел,которые больше 10 и вывести их.язык программирования: pascal
Показать ответ
Ответ:
Gali77
05.10.2020 22:43
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString('Введите строку:');
var m:=s.Matches('\d+').Where(x->x.Length>1);
Write('Найдено чисел- ',m.Count,': '); m.Println(',')
end.
Пример
Введите строку: аб12сд134е5
Найдено чисел- 2: 12,134
0,0
(0 оценок)
Популярные вопросы: Информатика
помогите1188
09.01.2021 19:43
4. Рассмотрите следующие фигуры. 1 целиндр.2 квадрат.Определите инструменты, с которых были созданы фигуры....
marisha1234567890e
19.12.2020 12:34
Для хранения растрового изображения размером 147×147 пикселей отвели 4 кб памяти. каково максимально возможное число цветов в палитре изображения? , буду ....
Kristing15
19.12.2020 14:14
ДО ІТЬ! Напишіть формули речовин пропущені у схемах реакцій.Доберіть Коефіцієнти :...
маріна2017
09.06.2021 17:30
Можно быстрей, что мне ...
ПАПА1111111111
16.09.2021 03:23
Мне нужно падрыхтавать паведамленне пра прыметник как можно больше написать на завтра....
An0441
16.09.2021 03:23
Мал сырлас , аттың сыры маған мәлім , Жырым – жылқы , жүйрік ат – салған әнім . Аспан асты , жер жүзі – кең сақара Күн көріп атам қазақ келген мәлім . Қазақтың жылқы аңсатқан...
Nastua204042
15.09.2022 11:10
4867,72837×65463646,6489...
jahinanaily
08.09.2021 16:30
Я задумал число умножив на5,а затем из произведения вычел2,7.В результате получил -21,7.Какое число я задумал?...
Loloshka321
26.12.2020 20:11
составить таблицу Литература и публицистика России в 16 веке (два столбца: название произведения/ о чем? (кратко смысл)...
losp
02.03.2022 02:11
1. Объясни, почему все рыбы, живущие на глубине, плоские? 2. Как можно объяснить заостренные, но мелкие зубы у акул? 3. Зачем ракообразным и маллюскам прочный панцирь?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString('Введите строку:');
var m:=s.Matches('\d+').Where(x->x.Length>1);
Write('Найдено чисел- ',m.Count,': '); m.Println(',')
end.
Пример
Введите строку: аб12сд134е5
Найдено чисел- 2: 12,134