Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
Vladislav45609
14.05.2021 16:30 •
Информатика
Дана строка 'аб12сд134е5'.из неё нужно узнать кол-во чисел,которые больше 10 и вывести их.язык программирования: pascal
Ответ:
djamilaalieva
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 оценок)
Популярные вопросы: Информатика
bestia1954
01.08.2022 16:25
9и 10.напишите программу для следующих .1.дано число.если число меньше нуля, то возвести его в квадрат,иначе - извлечь из него квадратный корень.2.вывести на экран сумму чисел...
Masha6655
08.03.2021 18:36
Может ли компьютер работать без программ? почему?...
нагамрпапприии
08.03.2021 18:36
Задан линейный массив, состоящий из n целых чисел. массив вводят с клавиатуры. найти максимальный элемент массива и его индексный номер. найдите кол-во элементов массива равных...
andryshaua1
08.03.2021 18:36
Неопасные компьютерные вирусы могут : к сбоям и зависаниям при работе компьютера. к потере программ и данных. к форматированию винчестера. к уменьшению свободной памяти компьютера....
NurlG
08.03.2021 18:36
Где хроняться файлы операционной системы когда компьютер выключен...
Ekaterina2558
13.09.2020 03:00
1)в каком сфере не используют технологии gprs a)на транспорте b)в области c)в военной d)в уборке улиц 2)в каком сфере компьютера является объектом изучения а) военной в)торговле...
Zheka5644
30.03.2020 16:24
Довжину кола діаметр якого дорівнює 5,4 дм...
mashauuu6
21.10.2020 09:22
позязя Open the brackets using Future Simple. Write down 4 answers with a comma (,). Use full forms. Примечание: Запишите только формы будущего времени для глаголов из скобок....
8877580
21.10.2020 09:22
решить уравнение, нужно подробное решение!! ...
nikiton22877
19.10.2022 10:05
Місце для дракона Який талант відкрився у дракона?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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