Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
маридиана
13.01.2021 10:40 •
Информатика
Дана строка 'аб12сд134е5'.из неё нужно узнать кол-во чисел,которые больше 10 и вывести их.язык программирования: pascal
Ответ:
kghjg
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 оценок)
Популярные вопросы: Информатика
anuta07121971
25.12.2020 01:21
Составить алгоритм для исполнителя...
natakubkina78
17.07.2020 13:14
Нужно составить программу, которая сможет вывести число, месяц и день недели, которые наступят через k дней, начиная с первого января 2008 года. напомним, что это был...
snagaytsev1
07.08.2020 01:38
Запиши, какой результат даёт код программы for i in hello world: if i==a: break else: print...
luciatarasova
01.07.2022 06:13
Как вписать туда нумерацию? Через пробелы не получается, перекидывает на следующую строку....
Aizek111
12.11.2020 03:31
Вычислите в таблице EXCEL столбцы Процент и Оценка : Макс. 15 ;10; 20 Набрано 12; 8;17...
DmitriyGromov
19.06.2021 08:28
Из предложенных слов и словосочетаний Составьте определения термина арифметическая операция...
tematal
11.02.2022 22:37
Что нужно сказать маме чтобы она отпустила меня погулять?...
alinka660066
11.02.2022 22:37
На прямий позначено 4 точки видстань миж сусидними точками 3 см скильки см становить видстань миж крайними точками...
alicahirdeeva
11.02.2022 22:37
2примера взаимодействие амфотерных оксидов с кислотными...
makon3
11.02.2022 22:37
Выразить в килограммах: 1т; 9ц; 9ц2кг; 1ц кг. в центнерах: 300кг; 2ц500кг; 0ц200кг; 1т.в центнерах и килограммах 520кг; 500кг; 502кг; 10кг....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
// Внимание! Если программа не работает, обновите версию!
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