Дана строка 'аб12сд134е5'.из неё нужно узнать кол-во чисел,которые больше 10 и вывести их.язык программирования: pascal

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

Радик174

24.05.2021 03:48

Операция взятия остатка от деления, обозначаемая ….? вариант ответа: %//== =...

kururumi

25.05.2023 21:37

Где хранятся удаленные данные в текстовом редакторе Word?...

ivankamartynyk

07.01.2020 04:49

Как обозначается не равно в пайтоне вариант ответа:==!= =**...

Zekkin

29.10.2020 00:50

Нарисуйте на питоне умаляю...

RыBкA109

27.12.2022 19:46

Число 61710 перевести в восьмеричную систему счисления. Число 765410 перевести в шестнадцатеричную систему счисления.Число FEA16 перевести в восьмеричную систему счисления.Число...

gtnzcdtnf

02.11.2020 13:54

Нарисуйте блок-схему для этой программы, желательно как можно скорее. (Язык С++)...

mgatron

31.12.2021 19:56

Несколько веб страниц с общей темой и содержанием , связанных между собой гипперссылками, образуют: 1. а)портал б)альбом в)сервер г)веб-канал д)веб-сайт? 2. может...

Нюся5012

29.09.2020 19:37

надо Дана программа: var s, k: integer; begin readln(s); readln(k); if s = 2 * k then writeln(‘ДА’) else writeln(‘НЕТ’) end. Было проведено 9 запусков программы, при...

Kolla77

18.04.2022 18:06

как ввести следующее четверостишие а. ерикеева в одну ячейку электронной таблицы? наступила осень, пожелтел наш сад. листья на берёзе золотом горят....

Lusi28

29.08.2022 02:51

Представьте числа в виде степеней основания : а) 567(10) б)94.53(10) в)110,101(2) г)11101(2)...

Ответ:

siifwfwutut3otu

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 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку