Ответы на вопрос:
// pascalabc.net 3.2, сборка 1421 от 22.04.2017 // внимание! если программа не работает, обновите версию! begin var s: =readlnstring.matchvalues('((\d*[a-z]))'); var r: string: =''; foreach var c in s do if c.length=1 then r: =r+c else r: =r+c[: c.length].tointeger*(c[c.length]); writeln(r) end.
Популярно: Информатика
-
viktoriyabolgova07.10.2022 13:26
-
riabinova1916.06.2023 21:50
-
messi11427.02.2020 15:23
-
Amalia133722.05.2021 23:28
-
Pricol504.10.2021 08:43
-
Deiselpro101.09.2022 03:38
-
meizum2luba25.03.2021 13:09
-
Хамеда06.08.2021 03:17
-
05Artur1013.03.2022 12:19
-
Besmertnay12301.04.2023 14:53